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a INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 


NOTICE AND SHOULD NOT BE CONSTRUED AS 


om 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS “nae FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 


AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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DEC DECUS DECTAPE 


MASSBUS 


pn 


SEQ 0001 





LL EE a———————E—E—EE—— OO OT eee a SSS 


co 


CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 3 


USER DOCUMENTATION 


1.0 


2.0 


3.0 


4.0 
5.0 
6.0 


TABLE OF CONTENTS 


GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 
1*§ SYSTEM REQUIRE ore TS 
1. RELATED DOCUMENTS AND STANDARDS 
1.4 Eee HES HIERARCHY PREREQUISITES 
1.5 ASSUMPTION 
1.6 HARDWARE TEST REQUIREMENTS 
OPERATING INSTRUCTIONS 


2.1 COMMANDS 
2.2 SWITCHES 


2.3 FLAGS 
$-¢ HARDWARE QUESTIONS 


2.6 EXTENDED P=TABLE DIALOGUE 
2.7 QUICK STARTUP PROCEDURE 


ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 
3.2 SPECIFIC ERROR MESSAGES 


PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 
TEST SUMMARIES 


SEQ 0002 © 


orm 





CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 4 
USER DOCUMENTATION 


1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE RPO7 DUAL PORT LOGIC TEST PERFORMS A Pract OF 
TESTS WHICH VERIFY THAT THE RPO? DUAL PORT LOGIC IS 
Ay: PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

IS NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A CABLE. THIS ARRANGEMENT ALLOWS THE DUAL PORT LOGIC 
TO BE TESTED FROM ONE PDP=11/RH11 OR RH70. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE T f THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 

° cag PROCESSOR 

- 28K OF MEMORY 

° Rui ToL oR Sotho CLOCK 

- CONSOLE TERMINA 

- RH11 OR RH70 WITH RPO7 

- STANDARD RPO7 DRIVE. 16 DRIVE INTERCONNECT CABLE 
1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL = CHQUS 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
RPO7 FRONT END DIAGNOSTIC 


os Rp — SOFTWARE MUST BE RUN TWICE: ONCE FROM 


DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED BY THE RPO7 
PERFORMANCE EXERCISER PROGRAM. 


1.5 ASSUMPTIONS 
NONE 


1.6 HARDWARE TEST REQUIREMENTS 


SEQ 0003 


or 
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EACH PORT OF THE saolt MUST nor A te 3 DRIVE NUMBER, IE; PORT A = 0, 
PORT B = 1. IN ADDITION, PART A *OUT® MUST BE CONNECTED TO PORT 1" 
‘IN’. PORT B ‘OUT’ MUST BE CONNECTED 10 A TERMINATOR 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC fest a — 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 


START THE DIAGNOSTIC FROM AN INITIAL STATE 


RESTAR START THE at teat tin WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
ROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE _ACTIVE AT START TIME 
DROP DEACTIVATE A _UNIT 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION F soe 
pt ge TYPE A LIST OF ALL DEVICE INFORMATICN 
LAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
FELAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE os so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘’START 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY eee OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7=10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER S WILL NOT BE RUN. 
/PASS : DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 


SECTION 
/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
{ /UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


SEQ 0004 | 


' 


orm 
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IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (URIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: oY 
START/TESTS: 1=5/PASS: 1000/EOP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 vit BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE E x OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. 
ae CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. “you MAY, 
OR EXAMPLE, TYPE ‘'/TES:1=5°* INSTEAD OF *'/TESTS:1-5"". 


BELOW Is A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


START x x x x x 
RESTART X x x x x 
CONT INUE x ‘ ; x 


x 
ADD x 


2.3 FLAGS 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH - 
LOOPING ON ER L ARED AT S D 


FL E CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FL 
ARE ALSO CL D AFTER A T COMMA LESS SET USING THE 
Ss D MAY CLEAR 


wn" 
ted 
b> 
a 
n“” 
< 
ba 
<_ 
oO 
= 
es 
=m 
mrz 
— 
ep 4 
J 
J 
=" 


ZFLAGS C s 0 
ALL FLAGS. eh | EXCEPTION OF 3 START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXR* INAIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL" ON ER 


UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 





SEQ 0005 


crm 


 — 
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ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DI wg itis WHICH DO NOT SUPPORT 


STATISTICAL REPORTING 
IDR INHIBIT Phys ee DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON wr WHICH 


HAVE EVALUATION SUPPORT) 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ eon MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


+e A_DIAGNOSTIC IS STARTED, THE eg bn tat. = PROMPT 

THE USER FOR Py ay INFORMATION BY TYPING ‘CHANGE HW (L) ?°° 
YOU MUST ANSWER ‘'Y"* AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN PRELOADED*’ USING eo SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER*S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


UNIT 0 
RPCS1 ADRS (0) 176700 ? 

VECTOR ADRS (0) 254 ? 

VEL (0) ? 

DRIVE # (0) 0 ? 
THE 1ST QUESTION ‘'RPCS1 ADRS** REQUIRES THAT THE USER INPUT THE 
ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 
THE 2ND QUESTION ‘VECTOR ADRS** REQUIRES THE USER TO INPUT THE 
Dares lh taiae ADDRESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION “BR LEVEL’ REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. DEFAULT IS LEVEL 5. 


THE 4TH QUESTION ‘PORT B DRIVE #** REQUIRES THE USER TO SPECIFY THE 
DRIVE NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS 0 (OCTAL). 


THE 5TH QUESTION ‘PORT B DRIVE #** REQUIRES THE USER TO SPECIFY THE 
DRIVE NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS 1 (OCTAL). 


THE FOLLOWING MESSAGE WILL THEN BE PRINTED: 





SEQ 0006 — 
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“PORT A_‘‘OUT’’ MUST BE CONNECTED TO PORT B ““IN’* PORT B ‘‘OUT’’ MUST BE 
CONNECTED TO_A_TERMINATOR DRIVE MUST BE ONLINE, WRITE ENABLED AND 
READY PORT SELECT SWITCH MUST BE IN THE “ve POSITION. EACH PORT SHALL 
HAVE A UNIQUE DRIVE NUMBER. CONTINUE"’ (L) 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING lp | 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
ABLE IS TO AN FOR EACH 


aa a - IF YOU HAVE AM 

A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEV vice with SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE X¥11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 71. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) 2? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? weeyoectne 
SUB=DEVICE # (0) ?. O<C 
Q-FACTOR (0) 0 ? 1<cR>" 


UNIT 2 

CSR ADDRESS (0) ? —_— 
SUB-DEVICE # - 

Q-FACTOR (0) 1 ? *octas” 


UNIT 3 
CSR ~ ser 3 (0) ?_ 160000<CR> 
SUB-DEVICE # (U) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ~ sa? a (0) ? > a 
SUB-DEVICE # (0) ? 

Q-FACTOR (0) 0 ? *cR>” 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 7 
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CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR aad (0) 160000<CR> 
SUB=DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPEC 


pois teaeie HOWEVER. 
1 St eae THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ~ say (0) ? yg oa 
SUB=DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ~ sary | (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ?. 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE _IN THE ABOVE pen ae THE pbb | SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN _IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
T V AND Q-FACTORS WERE SPECIFIED. THE 


ONLY ONCE. IN SECOND PASS, F N 

BUILT. THIS IS BECAUSE FOUR SUB-DEV ICES — SPECIFIED. 
CONSTRUCT TELLS THE RUNTIME SERVICES T 

THE SECOND. IN NTH 


FROM THE FIRST NUMBER TO IS CASE, o 
’ 5 E SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT B SINCE AD E ST 
D ) THE CSR ADDRESSES AND Q-FACTORS FOR 


BE ON AN EVEN BOUNDARY. HE ADDRE F 
THE oe ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


bn Hy Bay PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 





SEQ 0008 


rm 
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# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? yo et 
UB=DEVICE # (0) ? 2? O=7<CR> 
Q-FACTOR (0) 0? 0,1 pee 1<CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 5OHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE *'R NAME"*, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *‘START’’ 
ANSWER THE ‘'CHANGE HW’ QUESTION WITH ‘‘Y’’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 


WHEN YOU jee ry THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A erry? GENERAL, BASIC AND TM se GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER*’ FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXAXXX 
ERROR MESSAGE 


eWHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ny OR ray 
UNIT NUMBER = 0 - N_IS LAST UNIT IN PTABLE) 


TST NUMBER = TEST ANDY SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER"’ OR “‘IBR’’ FLAGS ARE SET (SECTION 2.35). THESE MESSAGES 





SEQ 0009 


le) 
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ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH _AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAY 

PRINTED UNLESS THE “‘IER*’, “‘IBh*’ S “*1XR"’ FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
REEAAEAAEKAAEAAAEAAAAAEAAAAAAAEARAAAEEEAEEAEAAEAEAEAAEEEAEREAKREEKEE 
DRIVE NOT IN NEUTRAL AFTER RELEASE = REQUEST NOT SET 

REGISTER WRONG AFTER RELEASE WITH REQUEST SET 

DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL 
DRIVE IN NEUTRAL AFTER RELEASE = REQUEST SET 

ATTN BIT WRONG AFTER RECALIBRATE COMMAND 

DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 
DRIVE RETURNED TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED 
TIMEOUT ONE SHOT WAS RETRIGGERED WITHOUT REGISTER ACCESS 

TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 

DRIVE IS NON-EXISTENT (*NED* BIT SET) 

ATTN BIT FOR PORT NOT RESET BY MASSBUS CLEAR 

TIMEOUT CLEARED THE ATTENTION BIT 

DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATTN BIT WRITTEN 

DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 

WRITING ATTENTION BIT (IN RPAS) DID NOT SET PORT REQUEST 
CONTROLLER SELECT SWITCH ON DRIVE NOT IN ‘‘A/B" 

CAN'T ACCESS DRIVE THROUGH EITHER PORT 

ATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT 

ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR 

ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 

THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST AND "ERR" SET 
RPAS REGISTER BITS SET BY WRITING ATA BIT 


ee 
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RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 
TIMEOUT ONE=SHOT IS LESS THAN 500 MS 

TIMEOUT ONE=SHOT NOT WITHIN SFEC (EXPECTED: 750 < ‘TIME’ < 1250 (MS)) 
ATTENTION NOT RESET BY WRITING RPAS 

ATTENTION NOT RESET BY GO 

ATTENTION RESET BY GO WHEN NOT SEIZED 

WRONG DRIVE TYPE 

DRIVE NOT ON LINE 

SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME 

DRIVE NOT SEIZED BY PORT 

WRONG STATUS SEEN BY THE SEIZING PORT 

REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT = DRIVE WAS SEIZED 
REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT 

RESISTER CONTENTS WRONG 

CONTROL BUS PARITY ERROR READING INDICATED REGISTER 
COMMAND ISSUED WITH DRIVE IN ERROR STILL SETS GO BIT 

ATTN BIT WRONG AFTER TIMEOUT = REQUEST NOT SET 

ATTN BIT WRONG AFTER RELEASE = REQUEST SET 

ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET 

DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 

DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT 

DRIVE NOT IN NEUTRAL AFTER TIMEOUT = REQUEST NOT SET 
TIMEOUT CLEARED THE DRIVE*S ERROR BIT 

RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 

TIMEOUT ONE=SHOT DID NOT RETRIGGER 

DRIVE CANNOT BE SEIZED BY WRITING ATA BIT 

ILF @RROR CANNOT BE SET 

DRIVE NOT READY AFTER RELEASE 

CANNOT CLEAR ERROR BY DRIVE CLEAR 





M 
CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 4-9 
USER DOCUMENTATION 


BOTH PORT NUMBERS THE SAME = TESTS NOT PERFORMED 
NO CLOCK FOUND ON SYSTEM = TESTS NOT PERFORMED 
WRONG SYSTEM CONFIGURATION = TESTS NOT PERFORMED 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF cr REPORTED Be "hs DIAGNOSTIC WAS STARTED. 


THE “EOP*’ SWITCH CAN BE USED 


CONTR OW OFTEN THE END 
OF PASS MESSAGE 1S PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST=DEVICE 
PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 


OF THE HARDWARE P-TABLES. 
-WORD 176700 ;RPCS1 BASE REGISTER ADDRESS 
-WORD 254 ;VECTOR ADDRESS 
-WORD 240 sBR LEVEL 5 DEVICE 
-WORD 0 sPORT A DRIVE # 
eWORD 1 zPORT B DRIVE # 
<WORD 1 2 CONFIGURATION IS ALL RIGHT 
6.0 TEST SUMMARIES 
TEST 1: NEUTRAL ACCESS TEST 


VERIFY THAT THE DRIVE IS ACCESSABLE THROUGH BOTH PORTS. 
1. SELECT DRIVE PORT BY WRITING THE ony tem IN RPCS2, 


casita 4 AY tee DRIVE REGISTER; IE: R 
VERIFY *NED® IS 


OT S 
et ad that DRIVE IS DUAL PORTED BY READING DRIVE TYPE 


5. VERIFY THAT DRIVE IS IN wie BY READING MOL, PGM, VV, 


DPR AND DRY THROUGH BOTH P 


6. cee late SERIAL NUMBER IS THE SAME WHEN READ THROUGH 


BOTH P 


FAULT LIST: J11, J12, J13, JUMPER CABLE, DUAL PORT JUMPER, INCORRECT 


START-UP SEQUENCE. 
TEST 2: PORT A SEIZE/TIMEOUT TEST 


1. ayiee cer A BY WRITING RPDA AND VERIFY THAT SEIZE OPERATION 


DID 
2. SELECT PORT B BY WRITING DRIVE NUMBER INTO RPCS2, 
3. inf ont a Re pacere RPCS1 (EXPECT REGISTERS TO =0, EXCEPT RPDT 


PAS WHEN 


R OM PORT B), 
4. VERIFY THAT RELEASE TIMEOUT IS GREATER THAN S00 MSEC BUT LESS 





SEQ 0012 | 


——— ee 
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THAN 2 SEC, 
5. VERIFY THAT DRIVE IS IN THE NEUTRAL STATE AFTER RELEASE. 
FAULT LIST: J11, J12 


TEST 3: PORT B SEIZE/TIMEOUT TEST 
font .° TEST 2 EXCEPT THAT THE SEIZE OPEXATION IS DONE THROUGH 


FAULT LIST: J13, J12 


TEST 4: SEIZE/RELEASE TEST = PORT A 
VERIFY THAT THE RELEASE COMMAND WORKS PROPERLY. 
1. SEIZE DRIVE THROUGH PORT A BY WRITING RPDS, 
2. ISSUE RELEASE COMMAND THROUGH —" A AND VERIFY DRIVE IS 
IN NEUTRAL AFTER A 40 MSEC DELA 
| 


FAULT LIST: J11, J12 


TEST 5: PORT B SEIZE/RELEASE TEST 
SAME AS TEST 4 BUT DONE THROUGH PORT B. 
1. SEIZE DRIVE THROUGH PORT B BY WRITING RPDS, 
2. ISSUE RELEASE. COMMAND THROUGH PORT B AND VERIFY DRIVE IS 
IN NEUTRAL AFTER A 40 MSEC DELAY. 


FAULT LIST: Ji3, J12 


TEST 6: PORT A SEIZE TEST 
SEIZE PORT A USING THE FOLLOWING PROCEDURES: 
1. WRITE RPDS, 
2. WRITE oat (UNIT UNDER TEST), 
3. READ RPCS1. 


ISSUE A_RELEASE COMMAND BETWEEN EACH SEIZE OPERA*ION AND 
VERIFY THAT THE DRIVE DID RETURN TO THE NEUTRAL STATE. 


FAULT LIST: J11, J12 


TEST 7: PORT B SEIZE TEST 
SAME AS TEST 6 BUT DONE THROUGH PORT 6. 
FAULT LIST: 313, 312 


SEQ 0013 


-——. ee 
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TEST 8: PORT A RELEASE INTERFERENCE TEST 


1. 
2. 
de 


4 
5 
6. 
? 
8 


ta set poate FOR BOTH PORTS BY ISSUING A DRIVE CLEAR 

Assure RELEASE COMMAND FOR EACH PORT AND WAIT 40 MS AFTER EACH 

cE Ize DRIVE THRO'GH PORT B BY WRITING RPDS AND VERIFY THAT SEIZE 
OE pRELEASE 1 teers THROUGH PORT A AND VERIFY THAT DRIVE IS STILL 
RELEASE DRIVE FROM PORT 

VERIFY THAT DRIVE. IS SEIZED TO PORT A WHEN RELEASED BY 


PO 
RELEASE DRIVE FROM PORT A 
VERIFY THAT DRIVE IN IN NEUTRAL. 


FAULT LIST: J11, J12 


TEST 9: 


Ve 


PORT B RELEASE INTERFERENCE TEST 
SAME AS TEST 8 EXCEPT DONE THROUGH PORT B. 


FAULT LIST: J13, J12 


TEST 10: PORT A RELEASE WITH ERROR TEST 


Ci.EAR ATTENTION BITS THROUGH BOTH PORTS BY ISSUING A DRIVE 
CLEAR THROUGH BOTH PORTS, 
Sag A RELEASE COMMAND FOR EACH PORT AND WAIT 4OMS AFTER 


EATH 

SEIZE DRIVE THROUGH PORT A BY WRITING RPDS 

1SSUE ILLEGAL COMMAND THROUGH PORT A. AFTER A DELAY OF 4OMS, VERIFY 
ELEASE COMMAND TO PORT A, 

VERIFY THAT PORT IS STILL SEIZED TO PORT A, 

CLEAR ERRORS THROUGH POR 

RELEASE DPIVE THROUGH PORT A 

VERIFY THAT DRIVE 1S IN NEUTRAL. 


FAULT LIST: J11, J12 


TEST 11: PORT B RELEASE WITH ERROR TEST 
SAME AS TEST 10 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 12: PORT A SEIZE AND CLEAR TEST 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE 
SEIZING PORT TO RELEASE THE DRIVE. 


1. SEIZE DRIVE THROUGH PORT A BY WRITING RPDS AND VERIFY THAT 


SEQ 0014 


am 
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IZED, 
E DR IVE CLEAR THROUGH PORT 
FY THAT ny IVE IS STILL oF rzeb THROUGH PORT 4, 
E MASSE S CLEAR THROUGH PORT A 

Y THAT (DRIVE 1S STILL SEIZED THROUGH PORT A, 


NOUS WwI 


FAULT LIST: J11, J12 


TEST 13: PORT B SEIZE AND CLEAR TEST 
SAME AS TEST 12 EXCEP’ DONE THROUGH PORT B, 
FAULT LIST: J13, J12 


TEST 14: SEIZE BY RPAS TEST 
VERIFY THAT WRITING APPROPRIATE BIT IN RPAS SEIZES THE DRIVE. 


1. WRITE RPAS WITH ATTENTION BITS FOR fhe PORTS, 
- VERIFY THAT EITHER PORT HAS SEIZED DRIVE, 
- RELEASE DRIVE FROM SEIZED Oo ive AND VERIFY, AFTER A 4OMS DELAY, 
THAT OPPOSITE PORT SEIZES DRIVE 
4. RELEASE DRIVE AND VERIFY THAT “if IS IN NEUTRAL, AFTER 40MS. 


FAULT LIST: J11, J12, J13 


TEST 15: INHIBIT SEIZE BY RPAS TEST 


VERIFY THAT DRIVE IS NOT SEIZED WHEN A ZERO IS WRITTEN INTO THE 
DRIVE’S ATTENTION BIT. 


1. VERIFY THAT BOTH PORTS ARE IN NEUTRAL. IF TH 

RELEASE COMMANDS AND VERIFY THAT PORTS DID REL 
2. WRITE ALL ATTENTION BITS, EXCEPT FOR DRIVE BE 
5. VERIFY THAT DRIVE IS IN NEUTRAL. 


HEY Ake NOT, ISSUE 
th TESTED, IN RPAS, 


TEST 16: SET PORT A REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS PORT REQUEST WHEN THE 
DRIVE IS SEIZED BY OPPOSITE PORT. 


CLEAR ATTENTION BITS FOR BOTH PORTS. 

SEIZE ea THROUGH PORT B BY WRITING R 

SET PORT REQUEST PORT A BY WRITING RPDS PPROM PORT A, 
RELEASE DRIVE FROM PORT B 

VERIFY THAT peive SEIZES TO PORT A BY PORT A'S ATA BIT. 
VERIFY THAT PORT B IS NOT SEIZED id TESTING RPDS = 
RELEASE DRIVE FORM PORT A. VERIFY IT IS IN NEUTRAL. 


NOUSWN— 
*eeeeees 


SEQ 0015» 
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TEST 17: SET PORT B REQUEST TEST 
SAME AS TEST 16 EXCEPT DONE THROUGHT PORT B. 
FAULT LIST: J13, J12 


TEST 18: RESET ATTENTION A BY DRIVE CLEAR 


VERIFY THAT DRIVE CLEAR CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZED PORT, 


1. 7 ATTENTION BITS FOR BOTH PORTS BY WRITING PAT BIT IN RPCS2 
ye BOTH PORTS. 
2. WRITE A_REMOTE REGISTER FOR EACH te lf 


3. VERIFY THAT ATA BIT IS SET ON EACH 
4, 1s. SE12 DRI D’To POR oe _ A BY URITING *ReDS AND VERIFY THAT DRIVE 


A Ss 
6. RELEASE DRIVE FROM PORT A AND VERIFY THAT IT IS IN NEUTRAL, 
7. VERIFY THAT ATTENTION BIT IS STILL SET ON PORT B. 


FAULT LIST: J11, J12 


TEST 19: RESET ATTENTION B BY DRIVE CLEAR 
SAME AS TEST 18 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 20: RESET ATTENTION A AND B BY MASSBUS INIT 


VERIFY THAT BOTH PORTS ARE IN NEUTRAL AND THAT EACH CORRESPONDING 
ATTENTION BIT IS SET. WITH THESE CONDITIONS PRESENT, VERIFY THAT 
A MASSBUS INIT WILL RESET BOTH ATTENTION BITS 


SET ATTENTION BITS FOR BOTH PORT 
RELEASE BOTH PORTS AND VERIFY nat THEY ARE IN NEUTRAL, 
ISSUE MASSBUS INI 

VERIFY THAT BOTH ATTENTION BITS DID RESET. 


Sun 
ee 


TEST 21: RESET ATTENTION A BY SETTING ‘GO" BIT 
VERIFY THAT THE *GO* BIT CLEARS ONLY THE ATTENTION BIT OF THE SEIZED PORT. 
1. er alee Bare FOR BOTH PORTS BY ISSUING OFFSET COMMAND 
¢° VERIFY THAT ATA IS SET FOR BOTH POR 


TS, 
SEIZE DRIVE THROUGH PORT A AND VERIFY THAT IT IS SEIZED 
ISSUE NOP COMMAND THROUGH PORT A AND VERIFY THAT ATA BIT IS 


SEQ 0016 


ne 








E 
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RESET, 
5. RELEASE DRIVE FROM PORT A AND VERIFY THAT IT IN NEUTRAL, 
6. VERIFY THAT ATTENTION BIT IS STILL SET ON PORT B. 


FAULT LIST: J11, J12 


TEST 22: RESET ATTENTION B BY SETTING ‘GO’ BIT 
SAME AS TEST 21 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 23: RESET ATTENTION “‘A’’ BY WRITING RPAS 


VERIFY THAT ATA CAN BE RESET BY WRITING THE APPROPRIATE BIT IN THE 
RPAS REGISTER. 
1. Al ATTENTION BIT ON BOTH PORTS BY he ure OFFSET COMMAND 
HROUGH BOTH PORTS AND VERIFY THAT THEY 
2. VERIFY THAT DRIVE IS_IN NEUTRAL BY LOOPI NG ON THE CONTENTS 
OF RPDS. THE DRIVE IS_ IN NEUTRAL WHEN RPDS IS NOT 
3. WRITE RPAS BIT 4 PORT A AND VERIFY THAT ATA BIT FOR THAT PORT IS 
RESET AND THAT ATA BIT FOR PORT B I 
4. CLEAR ATTENTION BIT FOR PORT B BY ISSUING A DRIVE CLEAR COMMAND, 
auntie AND WAITING 40MS AFTER THE RELEASE COMMAND 


FAULT LIST: J11, J12 


TEST 24: RESET ATTENTION ‘B** BY WRITING RPAS 
SAME AS TEST 23 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 25: SET ATTENTION “‘A’’ BY COMMAND 


CLEAR ATTENTION BITS FOR BOTH PORTS, 
SELECT PORT A_AND ISSUE A vec, COMMAND 


s PORTA, 
NEUTRAL DRIVE FROM PORT A AND VERIFY THAT DRIVE IS IN 
5. VERIFY  fuar ATTENTION BIT IS NOT SET FOR PORT B. 
FAULT LIST: J11, J12 


TEST 26: SET ATTENTION ‘B** BY COMMAND 
SAME AS TEST 25 EXCEPT DONE THROUGH PORT B 
FAULT LIST: J13, J12 


SEQ 0017 | 
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TEST 27: TEST THAT PORT ‘'A’’ TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT A PORT TIMEOUT DOES NOT INITIALIZE DRIVE. 
1. Te FOR BOTH PORTS, 


- LOAD PORT 
> SEIZE DRIVE THROUGHT PORT A BY WRITING RPDS = 0, 
4. ISSUE ILLEGAL COMMAND THROUGH PORT A, 
; WAIT FOR DRIVE TO TIMEOUT AND RETURN TO NEUTRAL, 
© SELECT PORT A AND READ COMPOSITE ERROR IN RPDS, "ILF BIT 
IN RPER1, AND ATA BIT IN RP 
7. VERIFY THAT DRIVE IS IN NEUTRAL AND THAT THE ATTENTION 
BIT IS NOT SET FOR, PORT 
8. ISSUE NOP.TO PORT “BT” AND VERIFY THAT ATTENTION SETS DUE 
TO COMPOSITE ERROR BEING PREVIOUSLY SET. 


FAULT LIST: J11, J12 


TEST 28: TEST THAT PORT B TIMEOUT DOES NOT RESET DRIVE 
SAME AS TEST 27 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 29: PORT ‘‘A’’ RETRIGGER BY DEMAND TEST 
VERIFY THAT PORT A TIMEOUT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


1. CLEAR ATTENTION BITS FOR eo PORTS, 

2. SEIZE DRIVE THROUGH PORT A WAIT FOR 500 MSEC. 

3. RETRIGGER TIMEOUT ON-SHOT H READING RPDS (DRIVE SHOULDN'T 
HAVE GONE TO THE NEUTRAL STATE), 

4. SET TIMER = 

5. SELECT pvt . AND WAIT FOR TIMER TO TIMEOUT, 

6. READ ELAPSED T 

7. VERIFY THAT DRIVE IS IN ne 

8. COMPARE ELAPSED TIME TO LIMITS, 

9. IF ELAPSED TIME IS NOT WITHIN LIMITS, REPORT THE ERROR. 


FAULT LIST: J11, J12 


TEST 30: PORT ‘SB’ RETRIGGER BY DEMAND TEST 
SAME AS TEST 29, EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 


TEST 31: PORT “‘A’’ TIMEOQUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND THAT SEIZING PORT PERFORMS NO REGISTER ACCESS. 


SEQ 0018 | 
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CLEAR ATTENTION BITS FOR BOTH PORTS, 
SEIZE DRIVE THROUGH PORT B BY WRITING R 

SET REQUEST FOR PORT A BY WRITING RPDS THROUGH PORT A, 
ISSUE RELEASE THR PO 

VERIFY THAT DRIVE IS SEIZED BY 

LOAD TIME WITH AN ACTUAL RE ASURED RT MEOUT + 25%, 

WAIT FOR TIMER TO EXPIRE, 

VERIFY THAT DRIVE IS IN NEUTRAL. 


FAULT LIST: J11, Jl2 


ONOULSWN— 
e*eeeeeee#*# 


TEST 32: PORT ‘SB’ TIMEOUT/RELEASE TEST 
SAME AS TEST 31 EXCEPT DONE THROUGH PORT B. 
FAULT LIST: J13, J12 





am 
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-REM @ 
VERSION (CZRJN-A-0) 


1. THIS VERSION IS THE SiARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 





THE RPO7 DISK DRIVE. 


ee 


SEQ 0020 


ee | 


an 








I 2 
ciefees RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 7 SEQ 0021 
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-TITLE CZRJNAO RPO7 DUAL PORT TEST 
~SBTTL PROGRAM HEADER 


oef 000000 -ENABL AMA,ABS 


002000 2000 
34+ 
: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
965 
969 002000 LSNAME : : :DIAGNOSTIC NAME 
002000 103 ASCII /C/ 
002001 132 SASCII /2/ 
2002 122 SASCII /R/ 
002003 112 SASCII /J/ 
002004 116 “ASCII /N/ 
002005 000 “BYTE 0 
002006 000 “BYTE 0 
002007 000 “BYTE 0 
002010 LSREV:: ZREVISION LEVEL 
002010 101 eASCII /A/ 
002011 LSDEPO:: 370 
002011 060 eASCII /0/ 
002012 LSUNIT:: ZNUMBER OF UNITS 
002012 000001 .WORD TSPTHV 
002014 LSTIML:: sLONGEST TEST TIME 
002014 000200 -WORD 200 
002016 LSHPCP:: :POINTER TO H.W. QUES. 
002016 100066 .WORD LSHARD 
002020 LSSPCP:: :POINTER TO S.W. QUES. 
002020 000000 «WORD 0 
002022 LSHPTP:: :PTR. TO DEF. H.W. PTABLE 
002022 002226 -WORD LSHW 
002024 LSSPTP:: :PTR. TO S.W. PTABLE 
002024 000000 «WORD 0 
002026 LSLADP:: ZDIAG. END ADDRESS 
002026 101040 .WORD LSLAST 
002030 LSSTA:: ZRESERVED FOR APT STATS 
002030 000000 «WORD 0 
002032 L$CO:: 
isin ane LSDTYP —s 8 DIAGNOSTIC TYPE 
$0356 LSAPT —* APT EXPANSION 
002036 000000 .WORD 
002040 LSDTP:: :PTR. TO DISPATCH TABLE 
ies enbestt LSPRIO — L501 SPATE AGNOSTIC RUN PRIORITY 
il eee LSENVI — FLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 WORD 


002046 LSEXP1:: zEXPANSION WORD 


Oe — a AS <A cen 
















00 
002072 000000 
000000 
002076 002540 
002100 104035 
102 000000 
002104 016730 
017302 
017300 
016722 
000000 
000000 
000000 


So 
So 
Mn 
= 
Mor mee we 4 
Soarannoos 


S 
™ 
~ 
So 


LSMREV::- 


LSEF:: 


LSSPC:: 


WORD 


LSDEVP:: 


LSREPP:: | 
LSEXP4:: 


LSEXP5:: 
LSAUT:: 
LSDUT:: 
LSLUN: : 


LSDESP::— 
LSLOAD::— 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME:: 


J 
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0 
-S¥C REV AND EDIT # 
CS$REVISION 
C$EDI 
:DIAG. EVENT FLAGS 


0 
0 


: POINTER TO DEVICE TYPE LIST 
LSDVTYP 
sPTR. TO REPORT CODE 


:PTR. TO ADD UNIT CODE 
sPTR. TO DROP UNIT CODE 
sLUN FOR EXERCISERS TO FILL 


LSDESC sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 

ESLOAD 

0 POINTER TO ERRTBL 


sPTR. TO INIT CODE 
LSINIT 

sPTR. TO CLEAN-UP CODE 
LSCLEAN 

:PTR. TO AUTO CODE 
LSAUTO 

sPTR. TO PROTECT TABLE 
LSPROT 
0 TEST NUMBER 


0 DELAY COUNT 
0 PTR. TO HIGH MEM 


oo oO 98 Oo O&O 


an 
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3 -SBTTL DISPATCH TABLE 
3 
4 
5 
$ ieee 
8 002122 000040 -WORD 32 
002124 LSDISPATCH:: 
002124 0174 WORD 11 
002126 021156 WORD T 
002130 023104 WORD T 
002132 025032 WORD 14 
002134 026 -WORD 15 
027706 -WOR T6 
002140 030732 -WOR 17 
002142 031756 -WOR T8 
002144 033532 WO 9 
002146 035306 -WORD 110 
002150 036756 eWORD 111 
002152 040426 oW T12 
002154 042232 ° T13 
002156 044036 ° T14 
002160 046732 WORD 115 
002162 047604 WORD 116 
051064 ° 117 
002166 052344 WORD 118 
002170 054244 . T19 
002172 056144 ° T20 
002174 0600 ° T21 
002176 061724 eWORD T22 
002200 063350 eWORD T23 
002202 064566 -WORD 124 
204 066004 WORD 125 
002206 067200 ° T26 
002210 070374 WORD 127 
002212 072134 -WORD 128 
14 0736 eWORD 129 
002216 074716 WORD 130 
002220 075740 eWORD 131 
002222 077012 WORD 132 





2 


SEQ 0023 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
: iT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


ao | 





SOOVOnNOUewh— 


NN 2 ot ot 
ONNOUSWH 


L 2 
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-SBTTL DEFAULT HARDWARE P-TABLE 


"THE DEFAULT ree Panh P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST@DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
+_AND IS USED AS A *‘TEMPLATE’’ FOR BUILDING THE P-TABLES. 


WORD 110000-LSHW/2 


LSHW:: 
DFPTBL:: 

-WORD 176700 sRPCS1 = REGISTER ADDRESS 

WORD 254 [VECTOR A DRESS 

“WORD 240 [BR Mayet 3 wae 

eWORD 0 *PORT E NUMBER 

oW 1 PORT 8 ORV VE NUMBER 

e 1 + CONF IGURATION IS ALL RIGHT 
L10000: 


SEQ 0024 


an 


4 
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SOFTWARE P-TABLE 


OONAUSWN— 


10 002242 000000 
002244 
002244 
11 
19 
20 002244 


-SBTTL SOFTWARE P-TABLE 


4 THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
: PROGRAM AS GPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
; se" OT sepcstman: TIME AND MAY BE VARIED BY THE OPERATOR 


-WORD 1L10001-L$SwW/2 
L$SW:: 
SFPTBL:: 


L10001: 


SEQ 0025 


an 


a 


| 


GLOBAL EQUATES SECTION 


AAAI & 
NOUSWNOOT 


000004 
000002 


ssssss 
rs 
Ss 
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-SBTTL GLOBAL EQUATES SECTION 


p++ 
: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


3 ARE USED IN MORE THAN ONE TEST. 


: BIT DIFINITIONS 
BIT1S== 100000 


B1T14== 40000 
BIT13== 20000 
BITi2== 10000 
BIT11== 40 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BIT07== 200 

T06== 100 
BIT05== 40 

1T04== 20 
BIT03== 10 
BITO2== 4 

1T01== 
BIT00== 7 
B1T9== BITO9 
BIT8== BITO8 
BIT7== BIT07 
BIT6== BIT06 
BITS== BITOS 
BIT4== BIT04 
BIT3== BITO3 
BiT2== BITO2 
BIT1== BI1T01 
BITO== B1T00 
: EVENT FLAG DEFINITION 
EF .START== 32. 
EF.RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 
EF .PUR== 38° 

> PRIORITY LEVEL DEFINITIONS 
be107= 340 

R106== 300 

Pridses 40 
PRI04== 200 
PRIO3== 140 
PRI02== 100 


s 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


3 START COMMAND WAS ISSUED 

‘ RESTART COMMAND WAS ISSUED 

: CONT INUE gy: WAS ISSUED 

. & NEW PASS HAS BEEN STARTED 

7 A POWER-PAIL/POUER-UP OCCURRED 


SEQ 0026 | 


an 


3 
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000040 
000000 


PRI01== 40 
PR1I00== 0 
TOPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
1DU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


SEQ 0027 


-— 










WOON AVES WN $$ O OONOAOUSWN CO OONOUESWN— 


MEWN— 


= 
-—OOoOn 
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-SBTTL RHXX REGISTERS 
sCONTROL AND STATUS REGISTER 1 (RPCS1) 


IE= 100 EH Se ENABLE (BIT #6) 

RDY= 200 READY (BIT #7) 

Al6= 400 HIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al7= 1000 HIGH ORDER oe ADDRESS BIT (BIT #9) 
PSEL= sii PORT SELECT (BIT #10) 

MCPE= 0000 MASSBUSS rat Uy ERROR et #13) 
TRE= 40000 ANSFER ERROR (BIT #14) 

Sc= 100000 t SPECTAL CONDITION (BIT #15) 


WORD COUNT REGISTER (RPWC) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


BUS ADDRESS REGISTER (RPBA) 
3(EACH BIT IS CALLED BY BIT NUMBER) 


sCONTROL AND STATUS REGISTER 2 (RPCS2) 


= 1 sUNIT SELECT (BIT #0) 

Ul= 2 sUNIT SELECT (BIT #1) 
U2= 4 sUNIT SELECT (BIT #2) 
BAI= 10 BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT= 20 ZMASSBUS PARITY TEST (BIT #4) 
CLR= 40 sCLEAR (BIT #5) 
IR= 100 : INPUT READY (BIT #6) 
OR= 200 sOUTPUT READY (BIT #7) 
MDPE= 400 sMASS BUS PARITY ERROR (BIT #8) 
MXF= 1000 sMISSED TRANSFER ERROR (BIT #9) 
PGE= 2000 sPROGRAM ERROR (BIT #10) 
NEM= 4000 sNON EXISTENT Y (BIT #11) 
NED= 10000 sNON EXISTENT DRIVE (BIT #12) 
UPE= 20000 sUNIBUS PARITY ER "7 (BIT #13) 
WCE= 40000 sWRITE CHECK ERROR (BIT #14) 
DLT= 100000 sDATA LATE (BIT #15) 
zDATA BUFFER REGISTER (RPDB) 
:(EACH BIT IS CALLED BY BIT NUMBER) 
-SBTTL RPO7 REGISTERS 
sCONTROL AND STATUS REGISTER #1. (#00) 

1 3:60 BIT (BIT #0) 

2 sFUNCTION CODE BIT #1 

4 sFUNCTION CODE BIT * 

10 sFUNCTION CODE BIT # 

20 sFUNCTION CODE BIT #4 

40 sFUNCTION CODE BIT #5 

4000 sDEVICE AVAILABLE (BIT #11) 


Dd 3 | 
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! 


58 
59 | 
60 ZDRIVE STATUS REGISTER (RPDS) (#01) | 
62 000001 = 1 
63 000002 EWN= 2 
64 000004 Itv= 4 
65 000100 Ve 100 
66 000200 DRY= 200 sDRIVE READY (BIT #7) 
67 000400 DPR= 400 :DRIVE PRESENT (BIT #8) 
68 001000 PGM= 1000 : PROGRAMABL 
69 002000 LeT= 2000 SLAST SECTOR TRANSFERRED (BIT #10) | 
70 000 WRL= 4000 sWRITE LOCK (BIT #11) 

71 010000 MOL= 10000 :MEDIUM ON-LINE (BIT #12) 

72 020000 PIP= 20000 SPOSITIONING OPERATION IN PROGRESS (BIT #13) | 
73 040000 ERR= 40000 ‘COMPOSITE ERROR (BIT #1 
0 100000 ATA= _—- 100000 SATTENTION ACTIVE (BIT #15) 
7% 
a4 ZERROR REGISTER #01 (RPER1) (#02) | 
79 000001 ILfF= 1 ILLEGAL FUNCTION (BIT #0) | 
80 000002 ILR= 2 TILLEGAL REGISTER (BIT #1) 

81 000004 RMR= SREGISTER MODIFICATION REFUSED (BIT #2) 

82 000010 PAR= 10 ZPARITY ERROR (BIT #3) | 
83 000020 FER= 20 SFORMAT ERROR (BIT #4) 

84 0 wtF= 40 SWRITE CLOCK FAIL (BIT #5) 
85 9001 ECH= 100 TECC HARD ERROR (BIT #6) 
86 2 HCE= 200 SHEADER COMPARE ERROR (BIT #7) 

87 0004 HCRC= 400 sHEADER CRC ERROR (SIT #8) | 
88 001000 AOE= 10 ZADDRESS OVERFLOW ERROR (BIT #9) | 
89 002000 IAE= 2000 31 ID ADDRESS ER (BIT #10) 
90 004000 WLE= 4000 sWRITE LOCK ERROR #11) 
91 010000 DTE= 10000 ZDRIVE TIMING ERROR (BIT #12) 
92 020000 OPI= 20000 [OPERATION INCOMPL BIT #13) | 
93 040000 UNS= 40000 :DRIVE UNSAFE (BIT #14) 

34 100000 DCK= 100000 SDATA CHECK ERROR (BIT 15) 

96 

44 ZMAINTAINABILITY REGISTER (RPMR1) (#03) 

123 100000 DMD= 100000 sDIAGINOSTIC MODE (BIT #15) | 
101 
102 ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) | 
104 000001 ATO= ‘1 :DEVICE 9 (BIT #0) 

105 000002 ATl= 2 sDEVICE 1 (BIT #1) 
106 000004 Al2= 4 pee (BIT #2) 
107 000010 AT3= 10 SDEVICE 3 (BIT #3) 
108 000020 AT4= 20 sDEVICE 4 (BIT #4) 
109 000040 ATS= 40 :DEVICE 5 (BIT #5) 
110 000100 ATé= 100 :DEVICE 6 (BIT #6) 
Hi2 000200 AT7= 200 sDEVICE 7 (BIT #7) | 
11 
114 ZDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) | 





» 
2 
> 
Oo 


; 
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REGI 

13 3 (EACH BIT IS CALLED BY BIT NUMBER) 

17 

4 sORIVE TYPE REGISTER (RPDT) (#06) 

20 000001 DTOO= 1 sDRIVE TYPE NUMBER BIT 1 

21 0002 DTOI= 2 sDRIVE TYPE NUMBER BIT 2 

22 DTO2= 4 sDRIVE TYPE NUMBER BIT 3 

23 10 DTOS= 10 DRIVE TYPE NUMBER BIT 4 

2h 000020 DT04= 20 : E TYPE NUMBER BIT 5 

25 0 DTOS= 40 ; E TYPE NUMBER BIT 6 

26 000100 DTO6= 100 : E TYPE NUMBER BIT 7 

27 000200 DTO7= 200 sDRIVE TYPE NUMBER BIT 8 

28 00 DTO8= 400 : NUMBER BIT 9 

29 004000 DRQ= 4000 sDRIVE REQUEST REQUIRED (BIT #11) 

30 020000 MOH= 20000 sMOVING HEAD (BIT #13) 

31 040000 TAP= 40000 sTAPE DRIVE (BIT #14) 

3 100000 NBA= 100000 sNOT BLOCK ADDRESSED (BIT #15) 

a4 

HH sLOOK=AHEAD REGISTER (RPLA) (#07) 

37 000100 SCO= 100 sSECTOR COUNT FIELD 0 (BIT #6) 
000200 SC1= 200 SECTOR COUNT FIELD 1 (BiT #7) 
000400 SC2= 400 sSECTOR COUNT FIELD 2 (BIT #8) 
001000 SC3= 1000 sSECTOR COUNT FIELD 3 (BIT #9) 
002000 SC4= 2000 sSECTOR COUNT FIELD 4 (BIT #10) 
000400 SC5= 400 33sSECTOR COUNT FIELD 5 (BIT #11) 
001000 SC6= 1000 33sSECTOR COUNT FIELD 6 (BIT #12) 


sRPO7 ERROR REGISTER #3 (RPER3) (#15) 


MMMMIMULIVIVIUIVUI ES BEER RRR EW 


000001 DGE= 1 r2:DIAGNOSTIC ERROR (BIT #0) 
000002 TPE= 2 t::TEMPERATURE WARNING ERROR (BIT #1) 
000004 AIR=  & S::AIR SYSTEM WARNING ERROR (BIT #2) 
000010 DPE= 10 S::DATA PARITY ERROR (BIT #3) 
000020 BPE= 20 t::BUFFER PARITY ERROR (BIT #4) 
0 pcu= 40 +::DC UNSAFE (BIT #5) 

000100 Ixu= 100 ii UNSAFE (BIT#6) 

200 DvC= 200 :7zDEVICE CHECK (BIT #7) 
$3588 (es 488 HEURES GATGPATION Eau PDS 
040000 SkI= 10990 :SEEK INCOMPLETE (BIT #14) 
100000 BSE= 100000 '2;BAD SECTOR ERROR (BIT #15) 


000200 OF D= 00 sOFFSET FORWARD (BIT #5) 

002000 HCI= 000 3H R ARE INHIBIT (BIT #10) 

004000 ECI= 4000 sERROR CORRECTION cgoe INHIBIT (BIT #11) ~ - 
010000 FMT16= 10000 sFORMAT BIT (BIT #1 

040000 MTD= 40000 333MOVE TRACK DISCRIPTOR (BIT #14) 

100000 CMOD= 100000 332COMMAND MODIFIER BIT (BIT #15) 


3 ss 3 HF Ss SS SS Ss Ss 3)  S)  ) SS - SS Ss Ss SS SS Ss SH SS 3 SS SB 3 3 Ss SS SS SH) SS I) YH YH YS YH DY 
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RPO? REGISTERS 


\%¢ sDESIRED CYLINDER ADDRESS (RPDC) si 

Wa :(EACH BIT IS CALLED BY BIT NUMBER) 

175 

176 sCURRENT CYLINDER REGISTER (RPCC) oe 

a4 3(EACH BIT IS CALLED BY BIT NUMBER) 

179 

180 SERIAL NUMBER REGISTER (RPSN) — 

+ 3 (EACH IS CALLED BY BIT NUMBER) 

183 

1s sRPO7 ERROR REGISTER #2 (RPER2) (#14) 

1% 000400 WRYUNS= $00 3zsWRITE READY UNSAFE (BIT #8) 

18 001000 WOR= 1000 33sWRITE OVERRUN (BIT #9) 

188 002000 RWU1= re 33sREAD/WRITE UNSAFE #1 (BIT #10) 
189 004000 RWU2= 4000 333READ/WRITE UNSAFE #2 (BIT #11) 
190 010000 RWU3= 10000 333READ WRITEE UNSAFE #3 (BIT #12) 
13) 100000 PGE= 100000 333PROGRAM ERROR (BIT #15) 

193 

194 sECC POSITION REGISTER (RPEC1) (#16) 

132 2 (EACH BIT IS CALLED BY BIT NUMBER) 

197 

198 sECC PATTERN REGISTER (RPEC2) (#17) 

43 3(EACH BIT IS CALLED BY BIT NUMBER) 





4 
5 
6 
7 
8 002244 
9 002246 
10 002250 
11 002252 
12 002254 
13 002256 
14 002260 
15 002262 
16 002264 
17 002266 
18 002270 
19 002272 
20 002274 
21 002276 
22 002300 
23 002302 
24 002304 
25 002306 
26 002310 
27 002312 
Spat 
002316 
30 002320 
31 002322 
3§ 002324 
33 002326 
34 002330 
35 002332 
36 002334 
37 002336 
38 002340 
39 002342 
$9 002344 






G 
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GLOBAL DATA SECTION 


-SBTTL GLOBAL DATA SECTION 


hed 
; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


CLKSTA:: .WORD 0 sCLOCK STATUS (NO CLOCK= 0,kW11-P= 1 OR KW11-L= <1 
PORTA:: .WORD 0 “ADDRESS OF PORT 
PORTB:: .WORD 0 SADDRESS OF PORT 8 
PORTC:: .WORD 0 ZADDRESS OF DIFFERENT DRIVE 
RQSTA:: .WORD 0 sREQUEST BIT FOR PORT A 
ROSTB:: .WORD 0 REQUEST Bit FOR PORT 8 
ASR1:: .WORD 0O : A-A OR ATA-8 
ASRA:: .WORD 0 ~ - 
ASRB:: .WORD 0 si ATA-B 
PTNBR:: .WORD 0 [CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 
SEI!ZPT:: .WORD 0 SCONTAINS THE ADDRESS OF THE SEIZING PORT 
PRT:: .WORD 0 : CONTAINS THE ADDRESS OF THE ‘OPPOSITE’ PORT 
TSTNUM:: .WORD 0 [NUMBER OF THE CURRENT TEST 
CKERR:: .WORD 0 z1F =1, A REGISTER MISCOMPARISON OCCURRED 
NOSEIZ:: .WORD 0 SIF -1. THE PORT IN ‘SEIZPT' DID NOT SEIZE THE DRIVE 
RELERR:: .WORD 0 [IF =1, THE PORT IN "SEIZPT’ DID NOT RELEASE THE DRIVE 
ME:: .WORD 0 SELAPSED TIME COUNTER 
WATCH:: .WORD 0 [WATCH DOG TIMER LOCATION 
TIMEA:: .WORD 0 [THE T T ONE-SHOT VALUE MEASURED THROUGH PORT A 
TIMEAP:: .WORD 0 : T ° T T VAL 
TIMEAM:: .WORD 9 SPORT A TIMEOUT VALUE = 25% 
TIMEB:: .WORD :THE TIMEOUT ONE=SHOT VALUE MEASURED THROUGH PORT 8 
TIMEBP:: .WORD 0 SPORT A i MEOUT VALUE + 25% 
TIMEBM:: .WORD 0 [PORT 8 TIME VALUE = 2 
TIMES:: .WORD 0 SSTORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 
CNFBAD:: .WORD 0 3BAD CONFIGURATION MARKER 
ABC:: .WORD 0 R 
BADDAT:: .WORD 0 3USED TO GET BAD DAT 
BADADR:: .WORD 0 USED TO GET FAILING AREGISTER 
EXPTED:: .WORD 0 cUSED TO GET DAT 
DRVBAD:: .WORD 0 [USED TO MARK A SYSTEM FATAL ERROR 
TMPO:: .WORD 0 [TEMPORARY STORAGE 
TMP1:: WORD 0 S TEMPORARY STORAGE 
1? « 0 : TEMPORARY 
0 S TEMPORARY STORAGE 
r 0 S TEMPORARY STORAGE 
0 SUSED TO SELECT A UNIT # 
176700 [CONTAINS RPCS1 BASE ADDRESS 
254,5*32. [CONTAINS VECTOR AD ADDRESS ‘ BR LEVEL 
50 [CONTAINS RH70 OFFSET 
0 SCONTAINS RHXX TYPE; Rite RH70= 1 
0 [STORAGE FOR DRIVE $/N pieryg 
176700 ZBASE ADDRESS USED FOR THE DRIVE 
176702 SWORD COUNT REGISTER 
176704 [BUFFER ADDRESS REGISTER 
176706 3DES RED SECTOR/TRACK ADDRESS 
176710 “RPO? STATUS REGISTER 
17671 :RPO7 DRIVE STATUS 


SEQ 0032 


8 002406 
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GLOBAL DATA SECT 


RPER1:: .WORD 176714 
RPAS:: .WORD 176716 
RPLA:: .WORD 176720 
RPDB eWORD 176722 
RPMR1:: .WORD 176724 
RPDT:: .WORD 17e7e6 
RPSN:: .WORD 1767 
RPGOF:: .WORD 176732 
RPDC:: .WORD 176734 
RPCC:: .WORD 1767 
RPER2:: .WORD 17674 
RPERS:: .WORD 17674 
RPEC1:: .WORD 176744 
RPEC2:: .WORD 17e786 
RPBAE:: .WORD 176750 
RPCSS:: .WORD 176752 


sRPO7 ERROR REGISTER #1 
7RPO7 ATTENTION tere} PSEUDO REGISTER 
LOOK wee REGISTER 


RPO7 

3RPO7 DAT A 

;RPO7 MAINT NANCE REGISTER #1 
DRIVE TYPE REGISTER 

3RPO7 SERIAL 


NUMBER 
RPO? OFFSET REGISTER 


;RPO PO 

3RPO7 ERROR PATTERN 

BUFFER ADDRESS EXTENDED (RH70) 
sSTATUS REGISTER (RH70) 


sATTENTION BITS TABLE (ATABIT=8 BYTES) 
sTHIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 


ATTENTION BIT 


ATABIT::.BYTE 1 
BYTE 2 
BYTE 4 
BYTE 10 
-BYTE 20 
-BYTE 40 
-BYTE 100 
-BYTE 200 


; STORAGE FOR DEVICE REGISTERS 


REG: : -BLKW 22. 








s 
J 
P] 

— —_ 
<<<<c<<< 
MmMmmmmmnmn 
NOUSWN oO 


zSAVE REGISTERS HERE 


— 
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GLOBAL TEXT SECTION 


.SBTTL GLOBAL TEXT SECTION 
4 2 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
5 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
: : MORE THAN ONE TEST. 
8 e 
18 : NAMES OF DEVICES SUPPORTED BY PROGRAM 
20 002532 ispvrve: 
002532 122 120 060 “ASCIZ /RPO7/ 
21 
27 
38 : TEST DESCRIPTION 
30 002540 LSDESC:: 
002540 122 120 060 “ASCIZ /RPO7 DUAL PORT TEST/ 
31 J 
+4 3; FORMAT STATEMENTS USED IN PRINT CALLS 
0025 045 116 000 :: .ASCIZ /%N/ 
43 002567 045 116 045 DSNMSG:: .ASCIZ JINTADRIVE ZO1%A & XO1%A, PG/ 
002623 045 124 000 SNDIGT:: .ASCIZ /%1/ 
46 002626 045 101 120 FRMTO1: .ASCIZ /ZAPORT# Z01%A REG A ADR= %06%A CONTENTS= %06/ 
47 002701 045 101 122 FRMTO3: .ASCIZ /ZAREG ADR Z062ZA P A %01ZA PORT 
48 002751 045 101 052 FRMTO4: .ASCII /ZAte® SEIZE ROR oo Moonta %01%A PORT# %01/ 
003024 045 116 045 -ASCIZ /%ZNZAREG ADR %06%A GOOD= %06%A BAD= 
50 003073 045 101 120 TOS: .ASCIZ /ZAPORT# ZO1ZA REG ADR= %06%A GOOD= %06%A BAD= %06/ 
51 003155 045 101 052 FRMTO7: .ASCII /ZAt** RELEASE ERROR *** PORT# ZO1ZA PORT# %01/ 
32 003232 045 116 045 sASCIZ /ZNZAREG ADR= %06%A GOOD= %06%A BAD= %06/ 
54 003302 045 101 120 FRMT11: .ASCIZ /%APORT #%01%A REG ADR= %06%A CONTENTS= %06/ 
55 003355 045 101 052 FRMT13: .ASCII /ZAtee SEIZE ERROR *** PORT# Z01ZA PORT# %01/ 
56 003430 045 116 045 SASCIZ /%ZNZAREG ADR= %06%A CONTENTS= %06/ 
57 003471 045 101 106 FRMT14: .ASCIZ /ZAFAULT LIST: J11, J1gtN/ 
58 003522 045 101 106 FRMT15: .ASCIZ /ZAFAULT rit: J13, J122N 
59 003553 045 101 106 FRMT16: .ASCII /ZAFAULT L ur ple 413 MAINT CABLE, DUAL PORTZN/ 
00364 045 101 11 SASCIZ 7EAJUMPER ten A ORRECT START-UP SEQUENCE 2N/ 
61 003716 045 101 106 FRMT17: .ASCIZ /ZAFAULT LIST: ne ety J132N/ 
63 003754 045 101 122 FRMTZE : .ASCIZ /ZARELEASING PORT# %01%A SEIZING PORT# %01/ 
004026 045 101 123 FRMT23: .ASCIZ /ZASEIZE PORT# ZO1ZA REG ADR= %06%A CONTENTS= %06/ 
6 004107 045 101 122 FRMT26: .ASCIZ /ZARELEASING PORT# %01/ 
67 004135 045 101 122 FRMT31: .ASCIZ /EARELEASING PORT# 201%A REQUESTING PORT# %01/ 
68 004212 045 101 120 FRMT36: .ASCIZ /ZAPORT# %01 
70 004226 045 101 052 FRMT44: .ASCIZ /ZAe*® RELEASE ERROR *** PORT# %O1ZA PORT# %01/ 
a} 004 045 101 120 FRMT46: .ASCIZ /ZAPORT A RPCS1= %06Z%A PORT B RPDS= %06/ 
73 004353 045 101 120 FRMTSS: .ASCIZ /ZAPORT# %O1ZA TIMEOUT VALUE= %D5%A (IN MS)/ 
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GLOBAL TEXT SECTION 
74 904426 045 101 122 FRMTS6: .ASCIZ /ZARPCS1 EXPECTED ADDRESS: 206/ 
75 0044 045 101 120 FRMTS7: .ASCI] /ZAPORT A EXPECTED= 2062A_ RECEIVED= 206/ 
6 0045 045 116 045 eASCIZ /ZNZAPORT B EXPECTED= Z06%A RECEIVED= 206/ 
78 004603 045 101 120 FRMT64: .ASCIi /ZAPORT# ZO1ZA FAILING eeeeeree = RPER1/ 
79 004651 045 116 045 eASCIZ /2NZAEXPECTED= ng RECEIVED= / 
80 004713 045 101 120 FRMT65: .ASCII /ZAPORT# ZO1ZA FAILING REGISTER = RPCS1/ 
4 004761 045 116 045 SASCIZ /ENZAEXPECTED= Z06%A RECEIVED= %06/ 
83 005023 045 116 045 FRMT66: .ASCIZ /ZNZADRIVE RPCS1_ RPWC RPBA RPDA RPCS2 = RPDS/ 
84 005114 045 116 045 FRMT67: .ASCIZ /% ee Z06%A_ _%06%A — / 
85 005174 045 116 045 FRMT70: .ASCIZ /2ZNZARPER1  RPAS RPLA RPDB RPM RPDT RPSN/ 
86 005265 045 116 045 FRMT71: .ASCIZ /2N% _. ZO6ZA_ Z06ZA_ Z06%A_ 206A ZOGEA %06/ 
87 005345 045 116 045 FRMT72: .ASCIZ /ZNZARPO RPDC RPCC RPER RPERS RPEC1 RPEC2/ 
88 005437 045 116 045 FRMT73: .ASCIZ TINEOGEA™ Z06ZA_ Z06ZA Z06%A %06%A %062A %062N/ 
89 005521 045 101 122 FRMT74: .ASCIZ /ZARPBAE RPCS3/ 
4 005541 045 116 045 FRMT75: .ASCIZ /ZNZO6%ZA %062N/ 
4 -SBTTL GLOBAL ASCII MESSAGE SECTION 
94 005560 127 122 117 EMI: eASCIZ /WRONG DRIVE TYPE/ 
95 005601 104 122 111 EM2: eASCIZ /DRIVE NOT ON LI 
96 005623 123 105 122 EMS: eASCIZ /SERIAL NUMBER READ op EACH PORT NOT THE SAME/ 
97 005705 104 122 117 EMS: eASCIZ /DRIVE NOT SEIZED BY PORT/ 
98 005736 127 122 117 EMS: eASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
99 006004 122 105 107 EM6: eASCIZ /REG CONTENTS SEEN BY OPPOSITE PORT = DRIVE * SEIZED/ 
19 006072 122 105 107 EM?: eASCIZ /REG CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
102 006146 122 105 107 EM10: .ASCIZ /REG CONTENTS WRONG/ 
103 006171 103 117 116 EM11: .ASCIZ /CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
104 006255 103 117 115 EM12: .ASCIZ /COMMAND ISSUED WITH DRIVE IN ERROR STILL SETS GO Ay 
105 006342 122 105 101 EM13:  .ASCIZ /READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
106 006427 126 117 114 EM14: .ASCIZ /VOLUME VALID SET ON THE WRONG PORT/ 
107 006472 101 124 124 EM15: .ASCIZ /ATIN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/ 
108 006551 101 124 124 EM16: .ASCIZ /ATIN BIT WRONG AFTER RELEASE = REQUEST SET/ 
i” 006624 101 124 1246 EM17: .ASCIZ /ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET/ 
111 006703 104 122 111 EM20: .ASCIZ /DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/ 
112 006763 104 122 111 EM21: .ASCIZ /ORIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT/ 
113 007036 104 122 111 EM22: =. ASCIZ $= /DRIVE NOT IN NEUTRAL AFTER TIMEOUT = REQUEST NOT SET/ 
114 007123 124 111 115 EM23: .ASCIZ /TIMEOUT CLEARED THE DRIVE*S ERROR BIT/ 
115 007171 122 105 114 EM24: .ASCIZ /RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 
116 007250 124 111 115 EM25: .ASCIZ AN ey 4 TRAL rf RETRIGGER/ 
117 007313 104 122 117 EM26: .ASCIZ /DRIVE NOT IN NEUT FTER RELEASE = REQUEST ya SET/ 
i 007400 122 105 107 EM27: .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
120 007456 104 122 111 EM30: .ASCIZ /DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN gaive IN NEUTRAL/ 
121 007553 104 122 117 EM31: .ASCIZ AY we IN NEU Ly AFTER a = REQUEST SET/ 
ic¢ 007630 101 124 124 EM32: .ASCIZ /ATTN BIT WRONG AFTER RECALIBRATE COMMAND/ 
123 007701 104 122 111 EM33: .ASCIZ PORIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 
124 010003 104 122 111 EM34: .ASCIZ /DRIVE RETURNED TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED/ 
125 010106 124 1117 115 EM35: .ASCIZ /TIMEQUT ONE SHOT WAS RETRIGGERED WITHOUT REGISTER ACCESS/ 
126 010177 124 111 115 EM36: .ASCIZ /TIMEOUT HAS NOT OCCURR oo WITHIN 2 sero? 
E44 010251 104 122 111 EM37: .ASCIZ /DRIVE IS NON-EXISTENT (*NED® BIT SET) 
129 010317 101 124 124 EM40: .ASCIZ /ATTN BIT FOR PORT NOT RESET BY masses CLEAR/ 
130 010374 124 111 115 EM41: .ASCIZ /TIMEOUT CLEARED THE ATTENTION BIT/ 





———" 


eee 
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DUAL PORT TES 
GLOBAL ASCII MESSAGE SECTION 
13) 010436 104 1 111 EM42: .ASCIZ /DRIVE NOT IN NEUTRAL SEIZED AFTER ATTN BIT WRITTEN/ 
132 010524 104 1 117 EM45: .ASCIZ /ORIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 
133 010601 127 1 117 EM44: .ASCIZ /WRITING ATTENTION BIT CIN RPAS) DID NOT SET PORT REQUEST/ 
134 010672 103 11 116 EM45: .ASCIZ @CONTROLLER SELECT SWITCH ON DRIVE NOT IN °A/B‘@ 
135 010751 103 101 116 EM46: .ASCI< /CAN*T ACCESS DRIVE THROUGH EITHER PORT/ 
16 011020 101 124 124 EM47: .ASCIZ /ATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/ 
138 011106 101 124 124 EMSO: .ASCIZ /ATIN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/ 
139 011170 101 124 124 EMS51: .ASCIZ /ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 
140 011257 124 110 105 EMS2: .ASCIZ /THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST & ‘ERR’ SET/ 
141 011352 122 120 101 EMS535: .ASCIZ /RPAS REGISTER BITS SET BY WRITING ATA BIT/ 
142 011424 122 105 114 EM54: .ASCIZ /RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 
143 011517 124 111 115 EMSS: .ASCIZ /TIMEOUT ONE-SHOT IS LESS THAN 75 
ae 011564 124 111 115 EM56: .ASCIZ /TIMEOUT ONE-SHOT NOT WITHIN SPEC (EXPTED: 7S50MS < ‘TIME’ < 1250 MS)/ 
146 011670 101 124 124 EM60: .ASCIZ /ATTENTION NOT RESET BY WRITING RPAS/ 
147 011734 101 124 1246 EM61: .ASCIZ /ATTENTION NOT RESET BY GO/ 
148 011766 101 124 124 EM62: .ASCIZ /ATTENTION RESET BY GO WHEN NOT SEIZED/ 
149 012034 104 122 111 EM635: .ASCIZ /DRIVE CANNOT BE SEIZED BY WRITING ATA BIT/ 
150 012106 111 114 106 EM64: .ASCIZ /ILF ERROR CANNOT BE SET/ 
151 012136 104 122 111 EM65: .ASCIZ /DRIVE NOT READY AFTER RELEASE/ 
152 012174 103 101 116 EM66: .ASCIZ /CANNOT CLEAR ERROR BY DRIVE CLEAR/ 
HS 012236 102 117 124 EM67: .ASCIZ /BOTH PORT NUMBERS THE SAME = TESTS NOT PERFORMED/ 
155 012317 116 117 040 EM70: .ASCIZ /NO CLOCK FOUND ON SYSTEM = TESTS NOT PERFORMED/ 
138 012400 127 122 117 EM71: .ASCIZ /WRONG SYSTEM CONFIGURATION = TESTS NOT PERFORMED/ 
158 EVEN 
162 
173 


















GLOBAL ERROR REPORT SECTION 
4 
5 
6 
4 
8 
g 


462 004737 016276 
66 013746 002332 
472 013746 002334 


062706 000012 
004737 016350 


016276 


062706 000012 
004737 016350 


11 
576 004737 016276 
002332 
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-SBTTL GLOBAL ERROR REPORT SECTION 


p++ 
; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


ERRO:: 

JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 

MOV BADDAT,-(SP) 

MOV BADADR,=(SP) 

MOV PTNBR, (SP) 

MOV #FRMTO1,=(SP) 

MOV #4 ,<(SP) 

MOV SP,RO 

TRAP  CS$PNTB 

ADD #12,SP 

JSR PC, DMPREG ZDUMP THE REGISTER CONTENTS 
L10002: 
ae TRAP  C$MSG 

JSR PC, SAVRPR ZGET THE REGISTER SNAPSHOT 

MOV BADDAT,-(SP) 

MOV EXPTED,=(SP) 

MOV BADADR.=(SP) 

MOV #FRMTOS,=(SP) 

MOV 4,-(SP5 

MOV P’RO 

TRAP  C$PNTB 

ADD #12,SP 

JSR PC ,DMPREG ZDUMP THE REGISTER CONTENTS 
L10003: 

TRAP  C$MSG 
ERR2:: 

JSR PC, SAVRPR zGET THE REGISTER SNAPSHOT 

MOV BADDAT,-(SP) 

MOV EXPTED,-(SP) 

MOV BADADR,=(SP 

MOV PTNBR,-(SP 

MOV SE1ZPT,-(SP) 

MOV #FRMTO4,=(SP) 

MOV #6,-(SP5 

MOV SP,RO 

TRAP  (C$PNTB 

ADD #16,SP 

JSR PC, OMPREG ;DUMP THE REGISTER CONTENTS 
L10004: 

TRAP _— C$MSG 
ERR3:: 


3GET THE REGISTER SNAPSHOT 





a 


~~ 
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GLOBAL ERROR REPORT SECTION 
012710 010600 MOV SP,RO 
012712 104414 TRAP  C$PNTB 
012714 0627 900014 ADD #14,SP 
mn3tee 004737 016350 spas JSR PC ,OMPREG :DUMP THE REGISTER CONTENTS 
b137 4 104423 TRAP —- CSMSG 
13 bis%<6 ERR4:: 
012726 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
012732 013746 00233 MOV BADDAT,=(SP) 
012736 013746 0023 MOV BADADR,-(SP) 
012742 013746 002246 MOV R,-(SP 
012746 013746 002270 MOV SE1ZPT,-(SP) 
012752 012746 003355 MOV #FRMT13,-(SP) 
012756 012746 MOV »=(SP5 
012762 010600 MOV 
012764 104414 TRAP  C$PNTB 
012766 062706 000014 ADD #14,SP 
012772 004737 016350 JSR PC ,OMPREG :DUMP THE REGISTER CONTENTS 
012776 L10006: 
012776 104423 TRAP  C$MSG 
14 013000 ERRS:: 
013000 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013004 013746 002332 MOV BADDAT,=(SP) 
013010 013746 002334 MOV BADADR,-(SP) 
013014 013746 002266 MOV PTNBR,-(SP) 
013020 012746 003302 MOV #FRMT11,-(SP) 
$1338) Biseap Om my, eat 
013032 104414 TRAP  C$PNTB 
013034 062706 000012 ADD #12,SP 
013040 004737 016350 eas JSR PC, OMPREG zDUMP THE REGISTER CONTENTS 
$1304 14 104423 TRAP  C$MSG 
15 013046 ERR6:: 
013046 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013052 013746 002332 MOV BADDAT,=(SP) 
013056 013746 002336 MOV EXPTED,=(SP) 
013062 013746 002270 MOV SEIZPT.=(SP) 
013066 012746 004713 MOV #FRMT65,=(SP) 
013072 012746 000004 MOV 7 (SPS 
013076 010600 V 
013100 104414 TRAP  (C$PNTB 
013102 062706 900012 ADD #12,SP 
013106 004737 016350 Re JSR PC ,OMPREG :DUMP THE REGISTER CONTENTS 
is bignie 1042 po 
013114 004737 016276 JSR PC, SAVRPR zGET THE REGISTER SNAPSHOT 
013120 013746 002266 MOV PTNBR,=(SP) 
013124 012746 004212 MOV #FRMT36,-(SP) 
013130 012746 000002 MOV #2,-(SP5 
013134 010600 MOV S 
013136 104414 TRAP  CS$PNTB 
013140 062706 000006 ADD #6,SP 
013144 004737 016350 JSR PC. DMPREG ;DUMP THE REGISTER CONTENTS 
013150 110011: 
013150 104423 TRAP  CS$MSG 
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17 01315 ERR8:: 
013152 004737 016276 JSR PC, SAVRPR 7GET THE REGISTER SNAPSHOT 
013156 013746 0022 MOV PTNBR,=(SP) 
131 013746 00227 MOV SEIZPT,-(SP) 
01 166 012746 003754 MOV T23,=(SP) 
013172 012746 000003 MOV = (SPS 
013176 0 
013200 104414 TRAP  CS$PNTB 
013202 2706 000010 ADD #10,SP 
0132 737 016350 JSR PC, OMPREG :DUMP THE REGISTER CONTENTS 
01321 L10012: | 
013212 104423 TRAP  CSMSG 
18 013214 ERR9:: 
013214 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013220 013746 002332 MOV BADDAT,-(SP) 
013224 013746 002334 MOV BADADR,-(SP) 
3230 013746 002270 MOV SEIZPT,=(SP) | 
013234 012746 026 MOV #FRMT23,-(SP) 
013240 012746 000004 MOV = (SP) 
013244 00 MOV s 
013246 104414 TRAP  C$PNTB 
013250 062706 000012 ADD #12,SP 
013254 004737 016350 JSR PC, DMPREG ZDUMP THE REGISTER CONTENTS 
013260 L10013: 
013260 104423 TRAP  CS$MSG 
19 013262 ERR10:: 
013262 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013266 013746 002270 MOV SEIZPT.-(SP) 
013272 012746 004212 MOV #FRMT36,-(SP) 
013276 012746 000002 MOV #2,-(SP) 
013302 00 p 
013304 104414 TRAP  C$PNTB 
013306 062706 000006 ADD 46,SP 
013312 004737 016350 cone JSR PC. DMPREG :DUMP THE REGISTER CONTENTS 
013316 104423 TRAP C$MSG 
20 013320 ERR11:: 
013320 004737 016276 JSR PC, SAVRPR 3GET THE REGISTER SNAPSHOT 
013324 013746 002272 MOV OPPRT,-(SP) 
013330 013746 002270 MOV SEIZPT,-(SP) 
013334 012746 004135 MOV #FRMT31,-(SP) 
013340 012746 000003 MOV #3,-(SP) 
013344 010600 MOV SP,RO 
013346 104414 TRAP  C$PNTB 
013350 062706 000010 ADD #10,SP 
013354 004737 016350 sana JSR PC ,DMPREG :DUMP THE REGISTER CONTENTS 
013360 104423 TRAP  C$MSG 
i SE 004737 016276 aancze JSR PC, SAVRPR GET THE REGISTER SNAPSHOT 
‘ ° Py 
013366 013746 002332 MOV BADDAT,=(SP) | 
013372 013746 002334 MOV BADADR.=(SP) 
013376 013746 002270 MOV SEIZPT.=(SP) 
013402 012746 002626 MOV = HERMTOT ,~( SP) 
013406 012746 000004 MOV #4,-(SP) 
013412 010600 MOV : | 
013414 104414 TRAP  C$PNTB ! 
| 
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ADD 
JSR 


TRAP 


#12,SP 
PC ,DMPREG 


CSMSG 
PC,,SAVRPR 


§ 
CSPNTB 
#10,SP 
PC, OMPREG 
CSMSG 


PC, SAVRPR 
TMP3,=(SP) 


#10,SP 
PC ,DMPREG 
CSMSG 


PC, SAVRPR 
SEIZPT,<(SP) 


#10,SP 
PC, DMPREG 
CSMSG 

PC, SAVRPR 


#10,SP 
PC ,OMPREG 
CSMSG 
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:DUMP THE REGISTER CONTENTS 


3GET THE REGISTER SNAPSHOT 


sDUMP THE REGISTER CONTENTS 


GET THE REGISTER SNAPSHOT 


sDUMP THE REGISTER CONTENTS 


GET THE REGISTER SNAPSHOT 


sDUMP THE REGISTER CONTENTS 


:GET THE REGISTER SNAPSHOT 


:DUMP THE REGISTER CONTENTS 


3GET THE REGISTER SNAPSHOT 


SEQ 0040 
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013660 010600 MOV SP,RO 
01 104414 TRAP  CS$PNTB 
013664 062706 000006 ADD 6,SP 
91 20 004737 016350 aes JSR PC DMPREG :DUMP THE REGISTER CONTENTS 
013674 104423 TRAP  C$MSG 
27 013676 ERR18:: 
01 76 004737 01627 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013702 013746 00235 MOV TMP3,=(SP) 
013706 013746 00234 MOV TMP2,=(SP) 
013712 013746 002344 MOV TMP1,=(SP) 
013716 013746 002342 MOV TMPO,=(SP) 
013722 012746 004464 MOV #FERMTS7,=(SP) 
013726 012746 000005 MOV #5,-(SP5 
013732 010600 MOV SP; 
013734 104414 TRAP  CS$PNTB 
013736 062706 000014 ADD #14,SP 
013742 004737 016350 JSR PC, DMPREG :DUMP THE REGISTER CONTENTS 
013746 L10024: 
013746 104423 TRAP  C$MSG 
28 013750 ERR19:: 
013750 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
013754 013746 002332 MOV BADDAT,=(SP) 
013760 013746 002336 V EXPTED,=(SP) 
013 013746 002270 MOV SEIZPT.=(SP) 
013770 012746 004603 MOV #FRMT64,-(SP) 
013774 012746 000004 MOV #4,-(SP5 
014000 00 : 
014002 104414 TRAP C$PNTB 
014004 062706 012 ADD #12,SP 
014010 004737 016350 JSR PC, OMPREG :DUMP THE REGISTER CONTENTS 
014014 L10025: 
014014 104423 TRAP  C$MSG 
29 014016 ERR20:: 
014016 004737 016276 JSR PC, SAVRPR :GET THE REGISTER SNAPSHOT 
014022 013746 002250 MOV PORTB,-(SP) 
014026 013746 00224 MOV PORTA, =(SP) 
014032 013746 00237 MOV RPCS1.=(SP) 
014036 012746 002701 MOV #FRMTO3, -(SP) 
014042 012746 000004 MOV #4, -(SP5 
014046 010600 MOV SP 
014050 104414 TRAP  CSPNTB 
014052 062706 000012 ADD #12,SP 
014056 004737 016350 JSR PC, OMPREG :DUMP THE REGISTEn CONTENTS 
01406 L10026: 
014 TRAP  CS$MSG 
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000004 


002364 


002364 


PC .SIZE70 


ua 
4 


RHTYPE 
spr }* aaNS 





-SBTTL GLOBAL SUBROUTINES SECTION 
zAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR 
3 REGISTERS 


;CALL ROUTINE 
:R5 MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 


sCLEAR RPBAE OFFSET 


2) 
RO) ,-(SP) 
SCcAI7tAt6>, (SP) 


1 REG CONTENTS 


RHTYPE ‘CLEAR RHXX TYPE REGISTER (RH11) 
ERRVEC,-(SP) | ;SAVE CONTENTS OF ERROR VECTOR 
#2$,,ERRVEC :SETUP *TRAP® RETURN ADDRESS 
55.RO :GET RPCS1 ADDRESS 
#50,R0 [GET REGISTER OFFSET FOR RH70 
#10. ,R2 [GET NUMBER OF REGISTERS TO CHECK 
(RO)+ ‘TRAP IF NOT A VALID RPBA 
(RO)+ STRAP IF NOT A VALID RPCS 
#50,RHEXT [LOAD OFFSET FOR RPBAE (22 REGISTER RH) 
(ROS+ :TRAP IF NOT A VALID REGISTER 
Re DONE WITH ALL 32 REGISTERS ? 
#76, ,RHEXT [LOAD OFFSET FOR RPBAE (32 REGISTER RH) 
#3$, (SP) :SETUP RETURN ADDRESS 
(RS) ,RO :GET RPCS1 REGISTER 
RHEXT,R2 :GET RPBAE REGISTER OFFSET 
4$ : NONE 
RO,R2 [GET RPBAE REGISTER 
#Al7iAT6, (ROD ‘SET EXTENDED ADDRESS BITS IN RPCS1 


3 ARE a ieee BITS SET IN RPBAE ? 


2BR I 

CLEAR EXTENDED ADDRESS BITS IN RPBAE 
sSAVE RPCS 
a“ THE EXTEND BITS CLEAR IN RPCS1 ? 


SET RHXX TYPE REGISTER (RH70) 
sRESTORE CONTENTS OF ERROR VECTOR 





; 
4 
5 
6 
7 
8 
9 
10 
11 
3 014226 
i 014232 
16 014236 
014242 
17 014244 
18 014246 
19 
20 
21 
22 014250 
23 014254 
24 014260 
25 014264 
$8 014272 
014276 
28 014 
9 014306 
0 014312 
1 014316 
2 014324 
Mi 014330 
014332 
35 014332 
014336 
014340 
36 
37 014342 
38 
39 
40 
41 014344 
ri} 014350 
43 014354 
44 014328 
45 01436 
46 014366 
47 014374 
48 
4G 
50 
51 014400 
26 014406 
53 014414 
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002244 
014454 
000120 


14444 
14446 
014450 


014522 


brans 


SEQ 0043 


sDETERMINE IF THERE i A CLOCK ON SYSTEM. START THE CLOCK. “‘CLKSTA’* WILL 
AT ie ite PE. 


a aod ag 
THIS RouT INE waite ALSO SETUP "'TICKMS’’ (TIME PER CLOCK TICK IN mi ILLISECONDS) 
ZAND “THCKUS™ (TIME PER CLOCK TICK IN MICROSECONDS) AS PER LINE FREQUENCY. 
; JSR PC,ST.CLK :START THE CLOCK | 
: RETURN 
ST.CLK: CLR CLKSTA ASSUME ‘NO CLOCK" 
CLR HERTZ SASSUME “UNKNOWN HERTZ 
t1S THERE A P-CLOCK PRESENT ? | 
V #°P,RO 
TRAP  C$CLCK 
MOV RO,RS 
360 TO 1$ IF NO 
BCC 1$ | 
:SET P=CLOCK P=TABLE & START P-CLOCK | 
MOV RS, PCLKTB SAVE PecLOck TABLE ADDRESS 
MOV (R5) ,PKCS ‘GET "CSR® ADDRESS 
MOV (R5) ,PKB [MAKE PKB ADDRESS BY 
014434 ADD #2,PKB s ADDING 
MOV (R5)+, PKC ;MAKE PKC ADDRESS BY 
014436 ADD #4,PKC 
TST (RBD+ ‘SKIP OVER "BR LEVEL 
MOV (R5)+ [GET "VECTOR® ADDRESS 
MOV (Reps. ‘MERTZ :GET "HERTZ" LINE FREQUENCY 
002244 MOV #1,CLKSTA :SET P=CLOCK FLA 
JSR pC *ST.PCLK :START P=CLOCK AS A WATCH DOG TIMER 
1$: z1S THERE A L=CLOCK PRESENT ? 
MOV #°L,RO 
TRAP C$CLCK 
V RO,RS 
:G60 TO 3$ IF NO 
Bcc 3$ 
:SET L=CLOCK P-TABLE, START L=CLOCK 
MOV R5,LCLKTB 3SAVE L=CLOCK TABLE ADDRESS 
MOV (RD}4.LKS ‘GET "CSR ADDRESS 
TST iSKIP OV ER "BR AbeY VEL" 
MOV (Raye [GET "VECTOR® ADDRESS 
MOV (R30: HERTZ GET HERTZ LINE FREQUENCY 
002244 MOV #-1,CLKS tL=CLOCK 
JSR PC, ST. tee START Lect oeK AS A WATCH DOG TIMER 
3GET THE CLOCK TICK COUNT 
014426 2s: MOV #20. spt hguns : ASSUME 0.0 MSEC & 
CAP HER IS 11 50 5 HERTZ LINE FREQUENCY ? 
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54 014416 012737 000020 014426 MOV #16. ,TICKMS sMUST BE 60HZ, 16.666 MSEC & 
55 014424 000207 3$: RTS PC 


56 

rH 014426 000020 TICKMS: .WORD 16. 316 MILLISECONDS PER CLOCK TICK 
23 sKW11-P CLOCK TABLE, CSR REG, PKB REG, PKC REG & VEC ADR 

61 014430 000000 PCLKTB: .WORD 0 3P-CLK TBL ADR 

63 014432 172540 PKCS: .WORD 172540 sCONTROL & STATUS 

64 014434 172542 PKB: WORD 172542 COUNT SET BFR 

65 014436 172544 PKC: WORD 172544 3 R 

66 014440 000104 000106 PKV: -WORD 104,106 : VECTOR 

3 sKW11-L CLOCK TABLE, CSR REG & VEC ADR 

4 014444 000000 LCLKTB: .WORD 0 sL-CLK TBL ADR 

72 014446 177546 LKS: WORD 177546 sCONTROL & STATUS 

73 014450 000100 000102 LKV: WORD 100,102 ; VECTOR 

o 014454 000000 HERTZ: .WORD 0 360 HZ. OR 50 HZ. LINE FREQUENCY 
77 014456 ST.PCLK: 

78 SETUP VECTOR FOR P-CLOCK 


79 014456 012746 000300 MOV #PR106,-(SP) 
14462 


12 
0 012746 014610 MOV #KWSRV,=(SP) 
014466 013746 014440 MOV PKV,=<(SP 
014472 012746 003 V #3,-(SP 
014476 104437 TRAP (CS$SVEC 
014500 062706 000010 ADD #10, 
80 014504 012777 177777 177722 MOV #~1-aPK 3COUNT ONE TICK 
81 014512 012777 000135 177712 MOV #135, SPECS ;"INT.EN,"* fount UP". "MODE 1 (REPEAT)", 
82 [“LINE FREQ’, AND “RUN 
83 014520 000207 RTS PC RETURN 
85 014522 ST.LCLK: 
86 sSETUP VECTOR FOR L=-CLOCK 
87 014522 012746 000300 MOV #PRI06,=(SP) 
014526 012746 014610 MOV #KWSRV,=(SP) 
014532 013746 014450 MOV LKV,-(SP) 
014536 012746 000003 MOV #3, -(SP 
014542 104437 TRAP  C$SVEC 
014544 062706 000010 ADD #10,SP 
88 014550 012777 000100 177670 MOV #100,aLks sSTART THE KW11-L 
89 014556 000207 RTS PC RETURN 
31 sTHIS ROUTINE IS USED TO STOP THE SYSTEM CLOCK 
95 : JSR PC, STOPCK :CALL ROUTINE 
95 014560 005737 002244 STOPCK: TST CLKSTA sI1S THERE A CLOCK AVAILABLE ? 
96 014564 001410 BEO 2s BR IF NO 
97 014566 100404 BMI 1$ “BR IF L=CLOCK 
98 014570 042777 000101 177634 BIC #101, aPKCS SSTOP THE P=CLOCK 
99 014576 000403 BR 
100 014 042777 000100 177640 1$: BIC #100,aLksS :STOP THE L=CLOCK 


SEQ 0044 
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101 014606 000207 28: RTS PC 
103 zkW11 CLOCK INTERRUPT SERVICE ROUTINE 
106 014610 063737 014426 002304 KWSRV: ADD TICKMS, TIME zDD TO ELAPSED TIME COUNTER : 
107 014616 103003 BCC “BRANCH IF NO OVERFL 
108 014620 012737 177777 002304 MOV #=1, TIME TOVERFLOW = RESTORE MAXIMUM COUNT 
109 014626 005737 002306 1$: TST WATCH 318 WATCH ALREADY ZERO 
110 014632 001406 BEQ $ “BR IF IT IS 
111 014634 163737 014426 002306 SUB TICKMS WATCH i SUBTRACT | FROM WATCH DOG COUNTER 
112 014642 100002 BPL 2$ BR IF NOT MINUS 
113 014644 005037 002306 CLR WATCH ZCLEAR WATCH DOG COUNTER 
114 014650 000240 2$: NOP 
115 014652 L10027: 
es 014652 000002 RTI 
17 sROUTINE TO CALCULATE + AND = 25% TIME TOLERANCE VALUES 
119 014654 162706 000004 TOLER: SUB #4,SP SETUP STACK 
120 014660 016616 000004 MOV 4(SP), (SP) 3SAVE STACK 
121 014664 013546 MOV acR5)+, =(SP) [GET TIME VALUE 
lee 014666 011666 000004 MOV esp) »4USP) [MOVE TIME VALUE 
123 014672 011666 000006 MOV (SP) .6(SP) [MOVE VALUE AGAIN 
124 014676 006216 ASR (SP) [DIVIDE BY 
125 014700 006216 ASR (SP) ‘DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
126 014702 061666 000004 ADD (SP) .4(SP) [CALCULATE UPPER LIMIT FOR TIMEOUT 
127 014706 162666 000004 SUB (SP)+,4(SP) [CALCULATE LOWER LIMIT FOR TIMEOUT 
128 014712 000205 RTS R5 [RETURN WITH TOLERANCES ON THE STACK 
130 014714 005737 002326 DRVINI: TST CNFBAD sUSER LEGAL CONFIGURATION? 
131 014720 001006 BNE 1$ STAKE BRANCH IF GOOD!! 
132 014722 104455 TRAP CSERDF 
014724 000003 WORD 
014726 012400 SWORD M71 
014730 000000 WORD 
133 014732 000137 016112 JMP 128 :GET OUT, THE SYSTEM IS BAD!! 
134 014736 005037 002340 1$: CLR DRVBAD [DEFAULT IS THAT DRIVE IS GOOD! 
135 014742 023737 002246 002250 CMP PORTA, PORTB [2 DIFFERENT DRIVE NUMBERS? 
136 014750 001006 BNE zIF <>, OK 
137 014752 104455 TRAP  CSERDF 
014754 000001 .WORD 1 
014756 012236 “WORD EM67 
014760 012576 “WORD ERR2 
138 014762 000137 016112 jmp 12$ : TAKE BAD RETURN 
139 014766 013737 002246 002252 28: MOV PORTA, PORTC i GENERATE A NON TESTED DRIVE NUMBER 
140 014774 005237 00225 3$: INC PORTC [FORM A UNIT UNDER TEST 
141 015000 042737 177770 00225 BIC #°C7, PORTC S THROW AWAY UNUSED BITS 
142 015006 023737 002250 00225 CMP PORTB, PORTC [MATCH TO PORT 8? 
143 015014 001767 BEQ 3 300 AGAIN, IF SO. 
144 015016 013701 002246 MOV PORTA,R1 “FROM INDEX 
145 015022 116137 002446 002262 MOV  ATABIT(R1),ASRA :GET ATTENTION BIT 
146 015030 116137 002446 002260 MOVB  ATABIT(R1).ASR1 :GET ATTENTION BIT 
147 015036 013701 002250 MOV PORTB,R1 [GET PORT B ADDRESS AS INDEX 
148 015042 116137 002446 002264 MOVB  ATABIT(R1),ASRB :GET ATTENTION BIT 
149 015050 156137 002446 002260 BISB $ATABIT(R1),ASR1 :GET BOTH ATTENTION BITS 
155 015056 005037 002310 CLR TIMEA :CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
015062 005037 002312 CLR TIMEAP LEAR TIMEOUT ONE=SHOT VALUE LOCATION 





EEE EEE SS EEE SES SSS SY 


4 
CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 17-8 SEQ 0046 
GLOBAL SUBROUTINES SECTION 


015066 005037 902 14 CLR TIME AM ZCLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
015072 005037 18 CLR TIMEB [CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
015076 005037 009820 CLR TIMEBP ‘CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
015102 005037 002322 CLR TIMEBM CLEAR TIMEOUT ONE SHOT VALUE LOCATION 
159 ‘SET PRIORITY TO 
160 015106 012700 000240 MOV #PR10S,RO 
a 015112 104641 TRAP — C$SPRI 
:START THE TIMER 
015114 005037 002304 CLR TIME ZCLEAR THE ELAPSED Tine COUNTER 
ce 015120 012737 003720 002306 MOV #2000.,WATCH  :SET WATCH TO 2000 
:SEIZE THE DRIVE THROUGH PORT A 
015126 113777 002246 165246 MOVB PORTA,aRPCS2 ;SELECT PORT 
015134 013737 002246 002270 MOV PORTA.SELZPT ;STORE SEIZING PoRT* S ADDRESS 
015142 005077 165232 CLR @RPDA SWRITE R 
015146 113777 002250 165226 MOVB = PORTB, aRPCS2 :SELECT PORT B 
015154 013737 002250 002866 MOV PORTB.PTNBR MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
015162 013737 002250 00227 MOV PORTB,OPPRT ‘OPPOSITE’ PORT ADDRESS 
015170 017737 165210 002332 MOV @RPDSBADDAT :SEE IF DRIVE SEIZED BY PORT A 
015176 013737 002404 002334 MOV RPDS ,BADADR [GENERATE BAD REGISTER ADDRESS 
015204 005037 002336 CLR EXPTED ‘REGISTER SHOULD BE ZERO 
015210 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER ZERO 
015216 001406 BEQ $ :BR IF IT IS 
913220 104456 TRAP  CSERHRD 
015222 000001 .WORD 1 
015224 005705 SWORD EM4 
015226 012576 “WORD ERR2 
013230 000137 016112 ra jmp 12$ :BYPASS REST OF THE SUBTEST 
015234 113777 002246 165140 MOVB = PORTA, aRPCS2 ZSELECT PORT 
015242 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
015250 017737 165130 002332 MOV @RPDS.BADDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
015256 042737 020005 002332 BIC #Om!PIP!ILV, BADDAT CLEAR DONT CARE BITS 
015264 012737 011700 002336 MOV #MOL'PGM!DPRIDRY! VV, EXPTED sexPECTED'S TUS 
015272 013737 002336 002344 MOV EXPTED,THP1 :USE GOOD DATA AS A MASK 
015300 005137 002344 CoM TMP1 COMPLEMENT THE EXPECTED STATUS 
015304 013737 002332 002342 MOV BADDAT TMPO 3 SAVE THE ACTUAL STATUS 
015312 043737 002344 00234¢ BIC TMP1, THPO EAR UNWANTED BIT 
015320 023737 002336 00234 CMP ExpréD” TMPO TARE THE EXPECTED STATUS BITS SET ? 
015326 001404 BEQ 65$ ‘BR IF THEY ARE 
015330 104456 TRAP  CSERHRD 
015332 000002 «WORD 2 
015334 736 [WORD EMS 
015356 012654 wi “WORD ERR3 
163 015340 113777 902250 165034 MOVB = PORTB, aRPCS2 :SELECT PORT 8 
015346 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:WAIT FOR PORT B TO TIME OUT 
TST aRPDS sDRIVE SEIZED YET? 
BN SIF NOT ZERO, YES 
TST WATCH [DID TIMER EXPIRE? 
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GLOBAL SUBROUTINES SECTION 


016112 


001356 
002342 


002310 


5$: 


6$: 


7$: 


SEQ 0047 


BNE 4$ z1f NOT ZERO, NO 
TRAP CSERHRD 
.WORD 29 
“WORD 
<WORD ERR11 
MOV #FRMT17,=(SP) 
MOV #1,=(SP5 
MOV SP 
TRAP  CS$PNTB 
ADD #4,SP 
JMP 12$ ZTAKE THE BAD RET 
:SET PRIORITY TO 
MOV #PR107,RO 
TRAP  C$SPRI 
CMP TIME ,#750. :TIME WITHIN LOWEST LIMIT? 
BLO $ STAKE BRANCH IF TIME IS TOO LOw 
CMP TIME ,#1250. [TIME WITHIN UPPER LIMIT? 
BLOS 7$ STAKE BRANCH IF LEGAL 
TRAP CSERHRD 
.WORD 31 
“WORD EMS6 
“WORD ERR16 
JMP 12$ :TAKE THE BAD RETURN 
MOV TIME , TIMEA [SAVE THE MEASURED TIME 
JSR R> TOLER :COMPUTE THE TOLERANCES 
MOV (SP)+,TIMEAP | ;SAVE THE RESULTS 
MOV (SP)+;TIMEAM = :# - 
SSET PRIORITY TO 5 
MOV #PRIOS,RO 
TRAP _— C$SPRI 
:START THE TIMER 
CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
MOV #2000.,WATCH SET WATCH TO 2000. MS 
ZSEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,aRPCS2 ;:SELECT PORT B 
MOV PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
CLR @RPDA :WRITE RPDA 
MOVB PORTA, aRPCS2 ZSELECT PORT A 
MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTA, OPPRT : "OPPOSITE’ PORT ADDRESS 
MOV @RPDS.BADDAT ;SEE IF DRIVE SEIZED BY PORT B 
MOV RPDS ,BADADR SGENERATE BAD REGISTER ADDRESS 
CLR EXPTED SREGISTER SHOULD BE ZERO 
CMP EXPTED,BADDAT :1S THE REGISTER ZERO 
BEQ 7BR IF IT IS 
TRAP CSERHRD 
.WORD 1 
;WORD EM4 
<WORD ERR2 
jmp 12$ ZBYPASS REST OF THE SUBTEST 





CZ 
GL 


RJNAO RPO7 DUAL PORT 
OBAL SUBROUTINES SECT 
015640 
015640 113777 
015646 013737 
Bes Bite 
0156 oie7 7 
015676 015737 
015704 005137 
015710 013737 
015716 043737 
013743 023737 
015732 001404 
Ete of Head 
015736 00000 
015740 005736 
015742 012654 
015744 
191 015744 113777 
015752 013737 
196 : 
19 
194 
195 015760 005777 
196 015764 001020 
197 015766 005737 
198 015772 001372 
199 oats 104456 
016000 ogi? 
016002 013320 
290 016004 012746 
016010 012746 
016014 01 
Rs sth 
201 016024 000432 
202 016026 
203 penes 012700 
0160 104441 
204 016034 023727 
205 016042 103404 
206 016044 023727 
207 016052 101404 
<08 016054 
016054 104456 
016056 000040 
016060 Bi 26? 
016062 0135 
209 01 Otte 
210 016072 004537 
211 016076 905716 
$i¢ 016100 01263 
13 016104 012637 
14 016110 93 
15 016112 012737 
16 016120 000207 
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&£oo 


o— 
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SENOS wm 
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sss Sssss 


rrr) = PoPororore 


001356 
002342 


002316 


002340 


668: 


67$: 


9$: 


10$: 


11$: 
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SEQ 0048 


PORTB, aRPCS2 :SELECT PORT B 
PORTB.PTNBR ; PORT ADDRESS TO LOCATION FOR TYPEOUT 
@RPDS,BADDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP!ILV “CLEAR DONT CARE BITS 
#MOL!PGM'DPRIDRY'VV.EXPTED EXPECTED STATUS 
EXPTED,TMP1 ;USE GOOD DATA A Sk 
TMP1 SCOMPLEMENT THE EXPECTED STATUS 
BADDAT, TMPO SSAVE THE ACTUAL STATUS 
TMP1, TAPO SCLEAR UNWANTED BITS 
EXPTED, THPO TARE THE EXPECTED STATUS BITS SET ? 
7 tBR IF THEY ARE 
CSERHRD 
Fes 
ERR3 
PORTA, a@RPCS2 ;SELECT PORT A 
PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


@RPDS 
9$ 
WATCH 
CSERHRD 
0 
ERR11 
#FRMT17,=(SP) 
#1,-(SP) 
SP,RO 
CSPNTB 
#4,SP 
12$ 
#PR1O7.RO 
TIME ,#750. 
TIME ,#1250. 
11$ 


cgenune 


so +270 


FOR PORT A TO TIME OUT 


sDRIVE SEIZED YET? 
:TAKE BRANCH IF SO 
CLOCK TIMED OUT? 
; TAKE BRANCH IF NOT 


3TAKE THE BAD RETURN 
sSET PRIORITY TO 7 


sTIME LOWER THAN SPEC? 
3 TAKE BRANCH IF SO 
sTIME GREATER THAN SPEC? 
3 TAKE BRANCH IF NOT 


3SAVE THE MEASURED RELEASE TIME 
sCALCULATE THE TOLERANCES 

34252 

37252 

TAKE THE GOOD RETU 


RETURN 
sMARK THE DRIVE BAD STATUS 
2RETURN 


ee ee 


7 
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GLOBAL SUBROUTINES SECTION 


7 


SEQ 0049 





1 
§ SSAA AEKAAAEAARASTHAASEEKSKEKSEAEEAAAAAAAAAERAAAEAAERAERHEREEHREKEREAHREHEREAAAAAEEE 
?THIS MODULE CREATES THE TABLES WHICH ARE USED TO SELECT DEVICE PARAMETERS 
4 [USED IN THIS PROGRAM. INCLUDED IN THE PARAMETER LIST ARE THE FOLLOWING ITEMS: 
| 5 ‘BASE REGISTER ADDRESSES FOR THE DEV Ice. OVE GTOR ADDRESS OF THE DEVICE, 
$ DETERMINATION. V VIA OPERATOR FOR THE FOLLOWING: CONTROLLER TYPE. 
| :DIALOGUE DETERMINES THE PRIORITY OF wie CONTROLLER, AND THE SELECTION OF A 
g ZDRIVE NUMBER FOR TEST (PORT A & PORT B). 
| 10 } INPUTS ARE: NONE 
| 12 ZouTPuTS ARE: PADD, RHTYPE, RPBAE, RPCS3, DRIVE, RPCS1 
| 14 :TMls MODULE IS CALLED BY: THE INITIALIZATION CODE 
15 fF TARA AAAEEAAAAEAAAE S COREE EEERETEREEEEHEAEEEHAAAAEERAREEEAAAEEEEAEEEEEAEEREREEE 
16 
17 016122 TABELD:: 
016122 010246 MOV R2,-(SP) 3PUSH R2 ON STACK 
016124 010346 MOV R3.=(SP) +:PUSH R3 ON STACK 
016126 010546 MOV R5,=(SP) ::PUSH R5 ON STAC 
18 016130 012702 000024 MOV #20. .R2 [R2 = ITERATION COUNT 
19 016134 012703 002372 MOV maps R3 :R3 = DATA SINK 
20 016140 1$: iGET. HARDWARE P=TABLE 
21 016140 013700 002354 MOV UNIT, 
016144 104442 TRAP  C$GPHRD 
016146 010005 MOV 0,R5 
22 016150 103040 BCC 4$ 
33 016152 011346 MOV (R3) ,-(SP) ZSAVE R3 
%4 016154 011546 MOV (R5) .=(SP) [AND THE BASE ADDRESS 
25 016156 166618 000002 SUB 2(SP5, (SP) :DERIVE NEW ADDRESS 
26 016162 061623 2s: ADD (SP), (R3)+ [LOG IT IN NEW TABLE 
27 016164 005302 DEC 2 ‘COUNT LOGGING 
28 016166 00137 BNE 2$ :R2 NOT ZERO, CONTINUE LOGGING 
29 016170 004737 014064 JSR PC,SIZE70 :SEE IF hizo 1S PRESENT 
30 016174 005737 002366 TST RHTYPE :1S IT AN RH70 ? 
31 016200 001406 BEQ 3 BR IF NO 
32 016202 013702 002364 MOV RHEXT,R2 [GET RPBAE OFFSET 
33 016206 061502 ADD R5) .R2 [ADD BASE ADDRESS TO OFFSET 
34 016210 91022 MOV R2,(R3)* [SAVE NEW RPBAE 
35 016212 005722 TST (R2)+ TADD 
36 016214 01021 MOV R2, (R3) [SAVE NEW RPCS3 
38 016216 022626 3$: CMP (SP)+, (SP)+ :DONE, RESTORE THE STACK 
39 016220 012537 002356 MOV (R5)*,RPADR ‘SAVE RPCS1 BASE ADDRESS 
40 016224 012537 00236 MOV (R5)+,RPVEC ‘SAVE INTERUPT VECTOR ADDRESS 
41 016230 012537 002362 MOV (R5)+.RPVEC+2 :SAVE INTERUPT PRIORITY 
42 016234 012537 002246 MOV (R5) +, PORTA [SAVE DRIVE NUMBER FOR PORT A 
43 016240 012537 002250 MOV (R5)+.PORTB TSAVE DRIVE NUMBER TB 
44 016244 011537 002326 MOV (R5), CNFBAD [GET THE SYSTEM CONF 1CURAT ION STATUS 
45 016250 000406 BR 5$ *SKIP NEXT 
47 016252 005237 002354 4$: INC UNIT sTRY THE NEXT UNIT # 
48 016256 023727 002354 000007 CMP UNIT, #7 1D WE TRY ALL THE UNIT #°S? 
49 016264 101725 BLOS ‘'1$ ‘BR IF <= 7. NO 
54 016266 5$: 
016266 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
016270 012603 MOV (SP)+-R3 +:POP STACK INTO R3 


[a rr 


4 
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| GLOBAL SUBROUTINES SECTION 
916272 01260 MOV (SP)+,R2 ::POP STACK INTO R2 
| $3 016274 0020 RTS PC STAKE THE RETURN 
| 
57 .SBTTL REGISTER BUFFER MODULE 
| 58 3 SSAA AAAAAaKEKASAAETETESETASEHAAAAAERAAATAAAARARAAAAAARAEAAAAERAREHRAEEEEEAEEEEEE 
59 STHIS MODULE CREATES AN IMAGE OF THE RP REGISTERS. 
60 :1T IS USED FOR DIAGNOSTIC PURPOSES SUBSEQUENT TO A DISK COMMAND. 
61 ZINPUTS INCLUDE: RPCS1 = RPCS3. OUTPUTS INCLUDE: REG+O = REG + 52. 
62 :MODULE IS CALLED BY: “ERRO’. 
63 FF RRA AAAAAAAEEAAEEERES EAA EEAEEAEEEAEEERERERAEEEEEEREEEEREREREREREEE azeeeeee 
64 
65 016276 SAVRPR: 
016276 010346 MOV R3,-(SP) z:PUSH R3 ON STACK 
016 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
016302 010146 MOV R1,=(SP) ::PUSH R1 ON STACK 
66 016304 012702 002372 MOV #RPCS1,R2 SAND THE TRANSFER ADDRESSES 
67 016310 012701 002456 MOV #REG,RI [OF THE SOURCE AND SINK BUFFERS 
68 016314 012703 000023 MOV #19..R3 3GET THE ITERATION COUNT 
69 016320 013221 1$: MOV a(R25+,(R1)*  :NOW LOG THE DATA 
70 016322 005303 DEC R3 ZONE LESS REGISTER TO GO 
71 016324 003375 BGT 1$ SIF >0, KEEP GOING 
72 016326 005737 002366 TST RHTYPE ‘WHICH CONTROLLER? 
73 016332 001402 BEQ 2$ :1F ZERO, IT'S AN RH11 
74 016334 013221 MOV @(R2)+,(R1)# LOG RPBA 
75 016336 013221 MOV a(R2)+.(R1)* LOG RPCS 
76 016340 2$: 
016340 012601 MOV (SP)+,R1 z:POP STACK INTO R1 
016342 8 1s606 MOV (SP)+,R 3:POP STACK INTO R 
016344 01260 MOV (SP)+-R ::POP STACK INTO R 
7 016346 000207 RTS PC sRETURN TO MAIN FOR ERROR REPORT 
79 016350 DMPREG: 
016350 012746 005023 MOV #FRMT66,-(SP) 
016354 012746 000001 MOV #1,-(SP5 
016360 010600 MOV SP,RO 
016362 104415 TRAP  C$PNTX 
016364 062706 ADD #4,SP 
80 016370 013746 002470 MOV REG*+12,=(SP) 
016374 013746 0024 MOV REG*10,-(SP) 
016400 013746 002464 MOV REG+6,=(SP) 
016404 013746 002462 MOV REG*4, (SP) 
016410 013746 002460 MOV REG+2,-(SP) 
016414 013746 002456 MOV REG, =(SP) 
016420 013746 002246 MOV PORTA, =(SP) 
016424 012746 005114 MOV #FRMT67,-(SP) 
016430 012746 000010 MOV #10,-(SP 
016434 010600 MOV SP, 
016436 104415 TRAP  CS$PNTX 
016440 062706 2 ADD ry) 
81 016444 012746 005174 MOV #FRAT70,-(SP) 
016450 012746 0 MOV #1,-(SP5 
016454 010600 MOV SP 
016456 104415 TRAP  CSPNTX 
016460 062706 000004 ADD #4,SP 
82 016464 013746 002506 MOV REG+30,=(SP) 
016470 013746 002504 MOV REG*26,~ (SP) 
016474 013746 002502 MOV REG+24,=(SP) 
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-(SP) 


1 
#ERMT74 
#1,-(SP) 


4 


WHICH CONTROLLER? 
z1F ZERO, RH11 


sTAKE THE RETURN 


SEQ 0051 


48 016714 
49 


61 
62 016714 
016716 


63 
75 
76 


77 
78 016720 
016 


720 
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ANEOUS SECTIONS 


000167 
000000 


104425 


~SBTTL MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


rs 
3 THE REPORT CODING SECTION CONTAINS THE 
3 ‘PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 
eWORD JSJMP 
-WORD 110030-2-. 
-EVEN 

L10030: 
TRAP CS$RPT 
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PROTECTION TABLE 


-SBTTL PROTECTION TABLE 


Tals TABLE IS USED BY THE RUNTIME SERVICES 
a TO PROTECT 1HE LOAD MEDIA. 


LSPROT:: 

;P-TABLE OFFSET OF CSR 

-1 sNOT A MASS BUS DEVICE 

10 +P=TABLE OFFSET OF DRIVE # 


WO DONO USWwN— 


tb 


ee 


———___________- 


C 
1 


Z 
N 
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TIALIZE SECTION 


FwN— COON OUVEW Ww—"OVONG Uw 


Ow en ee 


nanos IAIN NOMONN 
Sooooooooo ocoqoooooooooooo cco oc oo co CoCo SC SO 


a a ts ce ed et td 
=) ~“ “ 


eo S 


104433 


012700 
104447 


103434 


012700 
104447 


103430 


333 


-—-Oo00— 
Sesuse 
SNA 


000034 
000036 
000035 


002564 
000001 


000004 
177777 
002354 
016122 
002354 


002354 
000007 
000040 


014226 
002244 


163342 


008308 
003720 002306 
002306 





~SBTTL INITIALIZE SECTION 


3 ++ 
; THE INIT 


IALIZE $ 
3; AT THE BEGINNING OF EACH P 
LSINIT:: 
TRAP CSRESET 
MOV #EF .PWR,RO 
TRAP CSREFG 
BCS 3$ 
MOV #EF .CON,RO 
TRAP CSREFG 
Bcs 3$ 
MOV #EF .NEW,RO 
TRAP CSREFG 
BCC rs} 
1$: 
MOV #CRLF ,-(SP) 
MOV #1,-(SP) 
MOV ° 
TRAP CSPNTF 
ADD #4,SP 
MOV 4-1, UNIT 
2$: INC UN 
JSR PC, TABELD 
CMP UNIT ,#7 
BLOS 
BR 1$ 
3$: MOV #CLR,aRPCS2 
JSR PC,ST.CLK 
TST CLKSTA 
BNE 4 
TRAP CSERDF 
WORD 
eWORD €EM70 
-WORD O 
TRAP CSEXIT 
eWORD 1L10032-. 
4$: 
sSTART THE TIMER 
CLR TIME 
MOV #2000. ,WATCH 
5$: 3 WATCH 


-EQ 0054 


ECTION a HY aa THE CODING THAT IS PERFORMED 


RESET THE WORLD 
POWER UP SEQUENCE ? 


:G0 TO 3$ IF YES 
sCONTINUE COMMAND ? 


360 TO 3$ IF YES 
z"STA', "RES" OR "NEW PASS* ? 


:GO0 TO 2$ IF NO, MUST BE NEW "SUB-PASS’ 
7 CR-LF 


INITIALIZE FOR UNIT 0 ON STARi 
INCREMENT TO NEXT UNIT 

LOAD THE HARDWARE P-TABLES 
ape Me rest THE LAST UNIT? 
START AGAIN 

sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS 


START CLOCK 
31S THERE A CLOCK AVAILABLE ? 
;BR IF YES 


CLEAR THE ELAPSED TIME COUNTER 
zSET WATCH TO . M 

:DID TIMER EX 

z1F NOT ZERO, 





C2 
IN 
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PPADS SIUIUIVUIUN E £ 
263 8 8 hh oh 
NMN——SoNNNY AOUMUES &SWWwhn— 


SN NNN NN NSN SSNS SSS SSS 
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60 
61 
36 
é 
64 017240 
7244 
7250 
7252 
7254 
65 017260 
66 
67 017264 
7270 
68 
92 
93 017272 
017274 
94 
106 
107 | 
108 017276 
017276 
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seeascecoce 
NNEONNG 
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a=ae00 
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104411 


000004 
002246 
002250 


000010 
163246 


0u2564 
000001 


000004 
014714 
000240 


163262 


6$: 


L10032: 


Dd 
TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 21-1 





sPRINT DRIVE SERIAL NUMBER 


4 DIGIT 
C 


#4 ,R1 24 DIGITS 
PORTA, @RPCS2 sSELECT PORT A DRIVE 
TB,=(SP) 


#10,SP 
@RPSN,=(SP) :FETCH S/N 


3ZERO OUTPUT 
(SP) sPUT NEXT DIGIT INTO R2 


#°0,R2 sMAKE RESULT ASCII 
sSAVE R2 FOR PRINT 


aS COUNT DOWN DIGIT 

(SP)+ sRESTORE STACK 
:CR-LF 

#CRLF ,~(SP) 

#1,-(SP) 

SP RO 

CSPNTF 

#4 ,SP 

PC ,ORVINI 


#PRI05,RO 
CS$SPRI 


ALIZE THE DRIVES 
RIORITY TO 5 


CSINIT 


SEQ 0055 
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AUTODROP SECTION 


OOO 0BNOUEwN— 
So 
= 
~“ 
S 


5 2 


017300 
017300 104461 


~SBTTL AUTODROP SECTION 


p++ 

: vgs, COO, is EXECUTED nes 2 wa 4 i= bs MA ae 4 CODE IF 
: THE “'ADR’’ FLAG WAS SET. THE UNIT(S) TEST ARE CHECKED TO 
: SEE IF THEY WiLL RESPOND. THOSE THAT UDON' T ARE IMMEDIATELY 

; DROPPED FROM TESTING. 


L10033: 
TRAP CSAUTO 


SEQ 0056 






F 
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CLEANUP CODING SECTION 


<a 


H -SBTTL CLEANUP CODING SECTION 
3 +t 
4 3; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; ; AFTER THE HaRDWARE TESTS HAVE BEEN PERFORMED. 
7 e 
8 017302 LSCLEAN:: 
9 SET PRIORITY TO 7 
10 017302 012700 000340 MOV #PR107,RO 
017306 104441 TRAP SSPRI 
11 017310 012777 000040 163064 MOV #CLR ,@RPCS2 sMASSBUS_INIT TO CLEAR IMPENDING INTERRUPTS 
12 017316 013777 002246 163056 MCV PORTA, aRPCS2 :GET PORT ‘A* DRIVE NUMBER 
13 017324 737 014560 JSR PC,STOPCK STOP CLOCK 
14 017330 005737 002244 TST CLKSTA RELEASE APPROPRIATE CLOCK VECTOR 
15 017334 001410 BEQ 2s ; OCK, SKIP 
16 017336 1004 BMI 1$ sL-CLK 
17 sP-CLK VECTOR RELEASE 
18 017340 013700 014440 MOV PKV,RO 
017344 104436 TRAP CSCVEC 
19 017346 000403 BR $ 
20 sL-CLK VECTOR RELEASE 
21 017350 1$: 
017350 013700 014450 Vv LKV,RO 
017354 436 TRAP CSCVEC 
22 017356 2$: 
$3 
35 017356 104432 TRAP = CSEXIT 
% 017360 000002 -WORD 110034-. 
46 -EVEN 
47 
48 017362 L10034: 
017362 104412 TRAP CSCLEAN 








ee a ee 


G 
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-SBTTL DROP UNIT SECTION 


p++ 
3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES a« DEVICE 
: TO NO LONGER BE TESTED. 


L$DU:: 
000167 -WORD JSJMP 
000000 eWORD 1L10035-2-. 
EVEN 
L10035: 


104453 TRAP C$DuU 


H 5 
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ADD UNIT SECTION 


ADEE EPEAT cree erent 


2 -SBTTL ADD UNIT SECTION 

“ : THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5 ; TO BE emetyle® IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
$ : TO THE TEST CYCLE. 

8 e 

9 017372 LSAU:: 
8 
20 017372 000167 «WORD JSJMP 

21 017374 000000 -WORD 110036-2-. 

33 

$ -EVEN 

36 017376 L10036: 

38 017376 104452 TRAP CSAU 








. 2 
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HARDWARE TESTS 


2 -SBTTL HARDWARE TESTS 


5 
7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE a7” SEQ 0061 
a) OUTRAL ACCESS TEST 


-SBTTL TEST 1 NEUTRAL ACCESS TEST 


nn 


40 + VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 
ie 
4 te A. SELECT DRIVE, AVERIEY THAT THE | DRIVE IS PRESENT, THAT int 
4 ie IVE I$, A DUAL PORT RPO7, THAT THE DRIVE Es ONLINE (RPDS HAS 
44 ie PR’, & DRY “BIT S$ SET) AND THE THE oRive SERIAL 
43 te woneh READ anoee BOTH PORTS IS THE SAME 
3* 
4 t* &, THE TEST IS REPEATED THROUGH BOTH PORTS. 
3* 
49 
56 
62 017400 T1:: 
66 017400 005737 002340 TST DRVBAD zSYSTEM OK?? 
67 017404 00140 BEQ 1$ tI ZERO, YES! 
71 017406 10443 TRAP C$EXIT 
017410 001544 «WORD 110037-. 
75 017412 012777 000040 162762 1$: MOV #CLR,aRPCS2 s INITIALIZE THE MASSBUS 
77 3 SAEAAAAAAAAAAAAAAAAATEREAATAAAARAAAAAAAAAAAARAEAAAAAAAEAEAAAEAEAEERAEREREEEEEEE 
78 :VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 
93 017420 113777 002246 162754 MOVB PORTA, arPcs2 ZSELECT PORT A 
017426 013737 002246 26 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
017% 005777 16 744 TST :SEE IF DRIVE (PORT A) PRESENT 
17440 005037 376 CLR CKERR “CLEAR THE °CHECK ERROR’ INDICATOR 
017444 017737 162732 002332 MOV GRPCS2,BADDAT Get CONTENTS OF RP 
017452 013737 002402 002334 MOV cS2 BA zFORM REGISTER ADDRESS OF ERROR MESSAGE 
017460 005037 002336 CLR Exe TEp sWHAT REGISTER $ 
017464 013737 002352 002342 MOV BADDAT, TMPO [MOVE REGISTER CONTENTS TO ‘TMPO* 
017472 042737 167777 002342 BIC BORED THPO ZSAVE SPECIFIED BITS 
017500 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
017506 001427 BEQ 64 *BR IF OK 
017510 013737 002332 002352 MOV BADDAT, TMP4 3COPY "BAD DATA’ 
017516 042737 010000 00235 BIC #NED, TAPG [CLEAR THE MASKED BITS 
017524 053737 002352 002336 BIS TMP4.EXPTED :"OR’ WITH GOOD DATA FOR TYPEOUT 
017532 104456 TRAP SERHRD 
017534 000003 WORD 
017536 010251 “WORD £EM37 
017540 013152 “WORD ERRB 
017542 012746 003716 MOV #FRMTI7,-(SP) 
017546 012746 00000 MOV 1,=(SP5 
017552 010600 MOV 
017554 104414 TRAP  C$PNTB 
017556 062706 000004 ADD 4,SP 
017562 005137 002276 a COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
017566 005737 002276 TST CKERR sWAS *NED* SET ? 
017572 001403 BEQ +10 
017574 012777 000040 162600 MOV #CLR,aRPCS2 + ISSUE MAS SBUS INIT TO CLEAR "NED* 
017602 113777 002250 162572 MOVB = PORTB, aRPCS2 7SELECT PORT B 
017610 013737 002250 002266 MOV PORTB, ore :MOVE’ PORT ADDRESS T0 LOCATION FOR TYPEOUT 
017616 005777 162562 TST a@RPDS 7SEE IF DRIVE (PORT 8) PRE 
017622 005037 002276 CLR CKERR [CLEAR THE "CHECK ERROR® FADICATOR 
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‘CZRINA NAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 27-1 SEQ 0062 
TEST 1 NEUTRAL ACCESS TEST 
| 017626 17737 162550 002332 MOV anPcs2 BADDAT ;GET CONTENTS OF RPCS2 
0176 13737 002402 MOV 2, BADADR zFORR REGISTER ADDRESS OF ERROR MESSAGE 
017642 005037 0023 CLR ExPTED REGISTER L 
017666 013737 0023 903343 MOV BADDAT, TMPO MOVE REGISTER CONTENTS TO "TMPO’ 
017654 042737 167777 002 BIC PeweD Two sale seeeiF ep Bi 
017 023737 002336 002342 CMP EXPTED, THPO :COMPARE THE BITS 
017670 001427 BEQ ‘BR IF OK 
017672 013737 002332 002352 MOV BADDAT, TMP4 :COPY "BAD DATA® 
17700 042737 010000 002352 BIC #NED, TAPS SCLEAR THE MASKED BITS 
17706 053737 002352 002336 BIS TMP4 .EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
017714 104456 TRAP SERHRD 
017716 00000 .WORD 
017720 010251 -WORD £EM37 
017722 013152 “WORD ERRB 
017724 012746 003716 MOV #FRMT17,-(SP) 
17730 012746 000001 MOV #1,<(SP) 
017734 010600 MOV SP-RO 
017736 104414 TRAP  CSPNTB 
017740 062706 000004 ADD #4,SP 
017744 005137 002276 = COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 
017750 005737 002276 TST CKERR zWAS "NED* SET ? 
017754 001403 BEQ +1 :BR IF NOT 
017756 012777 000040 162416 MOV #CLR,a@RPCS2 SISSUE MASSBUS INIT TO CLEAR "NED* 
95 FARRAR AAAREAERAAAAEA AEE EEEE EE EAAAEEEEAAEEREEERERAEEREEEEREEEREREEEREREEREREERE 
96 CONFIRM THAT DRIVE IS AN RPO7 AND IS DUAL PORTED 
101 017764 113777 002246 162410 MOVB _— PORTA, aRPCS2 :SELECT PORT 
017772 013737 002246 002266 MOV PORTA.PTNBR :MOVE™ PORT ADDRESS. TO_LOCATION FOR TYPEOUT 
02 005037 002276 CLR CKER AR THE 'C HECK ERROR’ INDICATOR 
02 017737 162410 002332 MOV @RPOT, BADDAT :GET CONTENTS OF RPDT 
020012 013737 002420 002334 MOV RPDT BAD :FORM REGISTER ADDRESS OF ERROR MESSAGE 
020020 012737 024040 3336 MOV Wos460 EXPTED iz 2WHAT REGISTER SHOUL 
020026 013737 002332 002342 MOV BADDAT, TMPO REGISTER CONTENTS TO ‘TMPO® 
020034 042737 000003 002342 BIC #°C177774, TMPO s CAVE SPECIFIED BITS 
20042 023737 002336 002342 CMP EXPTED, TMPO 3COMPARE T HE BIT 
020050 001427 BEQ 68$ Ok 
020052 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
020060 042737 177774 002352 BIC #177774,1MP4 CLEAR THE MASKED BITS 
020066 053737 002352 002336 BIS TMP4, EXPTED :*OR' WITH GOOD DATA FOR TYPEOUT 
020074 104456 TRAP  CSERHR 
020076 000003 «WORD 3 
020100 005560 ;WORD M1 
020102 012462 -WORD ERRO 
020104 012746 003716 MOV #FRMT17,=(SP) 
020110 012746 000001 MOV #1,-(SP5 
020114 010600 MOV SP. 
020116 104414 TRAP  C$PNTB 
020120 062706 000004 ADD #4,SP 
020124 005137 002276 a COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
020130 11 002250 162244 MOVB = PORTB, aRPCS2 :SELECT PORT B 
01 00 5 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


CLR CKERR -CLEAR TH HE "CHECK ERRCR® INDICATOR 
MOV @RPDT,BADDAT ;GET CONTENTS OF R 
MOV RPDT,BADADR :FORM REGISTER ADDRESS O! ERROR MESSAGE 


" emacmmnnennamana Si enieaa a ee ee Ce es ee - — a 
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\CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 27-8 SEQ 0063 
TEST 1 NEUTRAL ACCESS TEST 


| 
| 


920164 nee 024040 00233 MOV #024040,EXPTED ;;;WHAT REGISTER SHOULD BE 
172 002332 00234 MOV BADDAT, 1 :MOVE REGISTER CONTENTS TO "TMPO* 
$38305 040737 00234 BIC acurrers TMPO :SAVE SPECIFIED BITS 
020206 023737 002336 002 CMP XPTED, THPO 3COMPARE THE BITS 
020214 001427 BEQ $ Ok 
020216 013737 002332 00235 MOV BADDAT, TMP4 :COPY "BAD DATA 
020, 3 O60? 7 177774 00235 BIC #177776,1MP4 CLEAR THE MASKED BITS 
020 053737 002352 002336 BIS TMP4, EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
020240 104456 TRAP SERHR 
020242 000003 WORD 
20244 005560 ;WORD M1 
020246 012462 “WORD ERRO 
020250 012746 003716 MOV #FRMT17,-(SP) 
020254 012746 000001 MOV #1,-(SP5 
20260 010600 MOV SP. 
020262 104414 TRAP CSPNTB 
020264 062706 000004 ADD #4,SP 
020270 005137 002276 COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
on 020274 70$: 
103 FERRARA EEAEEAEEEEEEEEEEEE AEA EEEEEEEREEEEEEEEREEEEEEEAEEEEEEREEEREREEEEEEREEEE 
4 ‘VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
110 020274 113777 002246 162100 MOVB = PORTA, aRPCS2 zSELECT PORT A 
020302 013737 002246 002266 MOV PORTA, PTNBR :MOVE, eld ADDRESS TO LOCATION FOR TYPEOUT 
020310 005037 002276 CLR Ck THe "CHECK ERROR’ INDICATOR 
020314 017737 162064 002332 MOV @RPDS ,BADDAT cite S OF RPDS 
020528 013737 002404 0025 4 MOV RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
020330 012737 001000 0023 MOV #PGM.EXPTED i geWHAT REGISTER SHOULD BE 
020336 013737 002332 002342 MOV BADDAT, TMPO *MOVE REGISTER CONTENTS TO *TMPO" 
020344 042737 176777 002342 BIC #°CPGM.TMPO SAVE SPECIFIED BITS 
020352 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BIT 
020360 001427 BEQ BR IF 
020362 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA 
020370 042737 001000 002352 BIC #PGM, TMP4 [CLEAR THE PARED BITS 
020376 053737 002352 002336 BIS TMP4 .EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
20404 104456 TRAP ‘ee 
20406 3 WORD 
020410 010672 “WORD E 
020412 012462 “WORD ERRO 
020414 012746 003716 MOV #FRMT17,-(SP) 
020420 012746 000001 MOV #1,-(SP5 
020424 010600 MOV SP-RO 
020426 104414 TRAP  CSPNTB : 
020430 062706 0000 ADD #4,SP 
020454 005137 002276 a CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
020440 005037 002276 CLR CKERR LEAR THE "CHECK ERROR® INDICATOR 
020444 017737 161734 (002332 MOV @RPDS ,BADDAT cite CONTENTS 6 RPDS 
020452 013737 002404 002334 MOV RPDS ,BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
020460 012737 010600 002336 MOV (DPR JEXPTED “WHAT REGISTER SHOULD BE 
020466 013737 002 00234 MOV BADDAT ThPO. MOVE REGISTER CONTENTS TO *TMPO' 
020474 042737 167177 002342 BIC #°C10600. 1H MPO ;SAVE sPECIFI D BITS 
020502 023737 002336 002342 CMP EXPTED,T APO [COMPARE THE BIT 
ath ETEL 002332 00235 pov BADDAT. TMPG OR IF Oe DAT 
020520 042737 010600 $03 325 BIC #10600, TMP4 [CLEAR THE PAStED BITS 
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CZRIJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 27-3 SEQ 0064 
TEST 1 NEUTRAL ACCESS TEST 


0205 053737 002352 002336 BIS TMP4 ,EXPTED :"OR*® WITH GOOD DATA FOR TYPEOUT 
020534 104456 TRAP SERHRD 
020536 000003 WORD 
020540 005601 ;WORD EM2 
020542 012654 ;WORD ERR3 
020544 012746 003716 MOV #FRMT17,<(SP) 
020550 012746 000001 MOV #1,=(SP5 
020554 010600 MOV 
020556 104414 TRAP CSPNTB 
020560 062706 000004 ADD 
0 0564 005137 002276 ows COM freer zSET THE REGISTER COMPARE ERROR INDICATOR 
020570 113777 002250 161604 MOVB = PORTB, aRPCS2 SELECT PO TB 
020576 013737 002250 002266 MOV PORTB,PTNBR :MOVE’ POR T ADDRESS TO LOCATION FOR TYPEOUT 
020604 005037 002276 CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
020610 017737 161570 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
020616 013737 002404 002334 MOV RPDS ,BADADR FORM R REGISTER ADDRESS OF ERROR MESSAGE 
020624 012737 001000 002336 MOV #PGM.EXPTED 33 REGISTER SHOUL 
020632 013737 002332 002342 MOV BADDAT, TMPO *MOVE REGISTER CONTENTS TO ‘TMPO* 
020640 042737 176777 00234 BIC #°CPGM,TMPO SAVE SPECIFIED BITS 
020646 023737 002336 002342 CMP pxered. ~TMPO sCOMPARE THE BITS 
020654 001427 BEQ $ F OK 
020656 013737 002332 002352 MOV BADDAT, TMP4 ZCOPY "BAD DATA* 
020664 042737 001000 002352 BIC #PGM, THPG [CLEAR THE MASKED BITS 
020672 053737 002352 002336 BIS TMP4 ,EXPTED :"OR® WITH GOOD DATA FOR TYPEOUT 
020700 104456 TRAP  CSERHRD 
020702 000003 «WORD 
20704 01067, SWORD M45 
020706 01246 “WORD ERRO 
020710 012746 003716 MOV #FRMT17,-(SP) 
020714 012746 000001 MOV #1,-(SP5 
020720 010600 MOV SP.RO 
020722 104414 TRAP  C$PNTB 
020724 062706 000004 ADD #4,SP 
920730 005137 002276 ae COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
020734 005037 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
020740 017737 161440 002332 MOV @RPDS .BADDAT GET ¢ TS OF RPDS 
020746 013737 002404 002334 MOV S,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
20754 012737 010600 002336 MOV IDPR!DRY,EXP WHAT REGISTER SHOULD BE 
020762 013737 002332 002342 MOV BADDAT, TMP EGISTER CONTENTS TO "TMPO' 
020770 042737 167177 002342 BIC #10660, THPO saver SPECIEL ED BITS 
020776 023737 002336 002342 CMP EXPTED, TAP PO 3COMPARE THE 
051006 013737 002332 002352 SOV s«BADDAT.TNP4 = ;EGPy’ °GAD DATA® 
021014 042737 010600 002352 BIC #10600; TMP4 [CLEAR THE MASKED BITS 
021022 053737 002352 002336 BIS TMP4 ,EXPTED :*OR’ WITH GOOD DATA FOR TYPEOUT 
21030 104456 TRAP SERHRD 
021032 WOR 
021034 005601 “WORD 
021036 012654 “WORD ERR3 
021040 012746 003716 MOV #FRMT17,=(SP) 
021044 012746 000001 MOV #1,-(SP5 
021050 010600 MOV 
021052 104414 TRAP  (C$PNTB 
021054 062706 000004 ADD 4,SP 
1060 005137 002276 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


021064 
H 
iH 
114 
115 021064 
116 021072 
117 021100 
118 021106 
119 021114 
120 0 1152 
124 021124 
021126 
021130 
021132 
125 021134 
021140 
021144 
021146 
021150 
126 021154 
127 021154 
021154 
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TEST 1 NEUTRAL ACCESS TEST 


$ Rfecnetecsess 
S gcSseoucnceaas 
= &R AO Won e 


78$: 


§ se RAAAAAAAERAEAAEEEEEEEEAAEEEEERAEAAAEAAEAEREAEAEREEAEAEAAEEEAAREEEAEEEEEEEEEEREE 


VERIFY THAT DRIVE SERIAL NUMBER AS SEEN THROUGH BOTH PORTS IS THE SAME 


MOVB PORTA, @RPCS2 sSELECT PORT A 
MOV @RPSN,EXPTED STORE THE PORT A SERIAL NUMBER 
MOVB PORTB,@RPCS2 sSELECT PORT B 


MOV @RPSN,BADDAT sSTORE THE PORT B SERIAL NUMBER 
cMP XPTED,BADDAT ARE THEY THE SAME ? 

BEQ $ sBR IF THEY ARE 

TRAP CSERHRD 

-WOR 17 


ERR1 
V #FRMTI6 
MOV #1,-(SP) 
MOV P.RO 
TRAP  C$PNTB 
ADD #4,SP 


=(SP) 


2$: 
L10037: 
TRAP CSETST 





SEQ 0065 
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CZRINAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 23 ° SEQ 0066 
TEST 2 PORT "A SEIZE/TIMEOUT ee T 
1 .SBTTL TEST 2 PORT °A* SEIZE/TIMEOUT TEST 
g ;*VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
4 :* IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
é i* A. WRITE O'S INTO RPDA THROUGH PORT ‘A’; VERIFY THAT THE DRIVE 
g is HAS BEEN SEIZED. 
9 i* B. READ EACH DRIVE REGISTER, EXCEPT RPCS1, THROUGH PORT 'B’; 
10 :* VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
12 :* (. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
13 * MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
14 * VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE T 
12 ‘* NEUTRAL. atso VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
17 ‘ 
195 021156 T2:: 
199 021156 005737 002340 TST DRVBAD :SYSTEM OK? 
021162 001402 BEQ 64$ STAKE BRANCH IF SO... 
021164 104432 TRAP —- C$EXIT 
021166 001714 «WORD 110040-. 
021170 64S: ;SET PRIORITY TO 5 
021170 012700 000240 MOV #PRIOS,RO 
021174 104441 TRAP — C$SPRI 
sSTART THE TIMER 
021176 005037 002304 CLR TIME sCLEAR THE ELAPSED +» COUNTER 
021202 012737 002342 002306 MOV #1250.,WATCH SET WATCH TO 1250. 
SRR. « ROR 5. 56 Te OR LR A A. -. . SR oe 
;SEIZE THE DRIVE THROUGH PORT A 
021210 113777 002246 161164 MOVB PORTA,@RPCS2 =; SELECT PORT 
021216 013737 002246 002270 MOV PORTA, SEILZPT : STORE peti PORT’ S ADDRESS 
021224 005077 161150 CLR @RPDA ;WRITE RPDA 
021230 113777 002250 161144 MOVB = PORTB, aRPCS2 :SELECT PORT B 
021236 013737 002250 002266 MOV PORTB,PTNBR ;MOVE" PORT ADDRESS TO LOCATION FOR TYPEOUT 
021244 013737 002250 00207¢ MOV PORTB,OPP ‘OPPOSITE’ PORT ADDRESS 
021252 017737 161126 00233 MOV @RPDSBADDAT :SEE IF DRIVE SEIZED BY PORT A 
021260 013737 002404 002334 MOV RPDS ,BADADR SGENERATE BAD REGISTER ADDRESS 
021266 005037 002336 CLR x SREGISTER SHOULD BE ZERO 
021272 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER ZERO 
021300 001406 BEQ 65$ :BR IF IT IS 
021302 104456 TRAP CSERHRD 
021304 000001 WORD 
021306 005705 [WORD EMG 
021310 01257 * WORD RR2 
021312 000137 023062 ot MP :BYPASS REST OF THE SUBTEST 
921316 113777 002246 161056 "  MOVB-=—s« PORTA, @RPCS2 :SELECT 
021324 013737 002246 0022 MOV PORTA.PTNBR ;MOVE PORT AoDRESS” TO LOCATION FOR TYPEOUT 
021332 017737 161046 0 ; MOV @RPDS.BADDAT  ;SEE IF SEIZING PORT Aste CORRECT STATUS 
021340 042757 020005 00 BIC #OM!PEP!ILY pAT “CLEAR DONT CARE BITS 
021346 012737 011700 002336 MOV #MOL ! PGRIDPRIDRY VV, EXPTED sEXPECTED” STATUS 
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TEST MAC ot A eta 1=JAN@83 15:44:57 PAGE 28-1 


TIMEOUT T 


oe ee 
AAAAAAAOAOCOO 


160672 
002306 


003471 
000001 


000004 
022302 
000340 


002304 


002344 MOV EXPTED,TMP1 ;USE GOOD DATA AS A MASK 
COM TMP1 SCOMPLEMENT THE EXPECTED STATUS 
00234 MOV BADDAT, TMPO 3 SAVE THE ACTUAL STATUS 
002 4 BIC TMP1, TAPO [CLEAR UNWAN 
00234 CMP EXPTED, TMPO + ARE THE EXPECTED STATUS BITS SET ? 
BEQ 66$ :BR IF THEY ARE 
TRAP — CSERHRD 
«WORD 2 
“WORD EMS 
os: “WORD ERR3 
J RRAAAAAEAAEREEEERAEEEEEEEEREEEERAAEEEEEEREEEEEERRAEEEEEERERAERERERRERREREEEERERE 
TREAD THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
160752 MOVB PORTB, aRPCs2 sSELECT PORT B 
002266 MOV RTB PTNBR :MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PEC2,=( ZSTORE REGISTER RPEC2, PORT B, FOR CHECK 
MOV SRPECT. =t8p) SSTORE REGISTER RPEC1, PORT B, FOR CHECK 
MOV »=(SP) ‘STORE REGISTER RPSN, B, HECK 
MOV aRPDC,<(SP) SSTORE REGISTE » PORT B, FOR CHECK 
MOV a@RPOF .=(SP) SSTORE REGISTE FOR CHECK 
MOV @RPERS,-(SP) § :STORE REGISTER RPERS, PORT 8, F EC 
MOV @RPLA,=(SP) SSTORE REGISTER RPLA, PORT B, FOR CHECK 
MOV @RPDA.=(SP) SSTORE REGISTER RPDA PORT B, FOR CHECK 
MOV @RPMR1,-(SP) § :STORE REGISTER RPMR1, PORT 8, FOR CHECK 
MOV @RPER1.-(SP) : STORE REGISTER RPERT. PORT B. FOR CHECK 
FERRARA AAEEAAAEERAREEEAEEEEEEEEEAAAAEEERAEEEREREEEEEEEAERAEEEEREEEEEREEEEREERED 
‘GAIT FOR PORT A TO TIMEOUT 
1$: TST @RPDS :WAIT FOR THE DRIVE TO TIMEOUT 
BNE 2 BR WHEN TIMEOUT OCCURS 
TST WATCH [CHECK WATCH 
BNE 1$ :BR iF NOT ZERO 
TRAP  CSERHRD 
.WORD 18 
WORD 
“WORD ERR11 
V #FRMT14,~(SP) 
MOV #1,=(SP) 
MOY SP-RO 
TRAP C$PNTB 
ADD #4,SP 
JMP 4$ :BYPASS TIMEOUT TIME CHECK 
2$: :SET PRIORITY TO 7 
MOV #PR107,RO 
TRAP _— C$SPRI 
FERAAAAEEAAREREREAEEEEAEEEAAEEEEERAREREREEEEEEEREEREEAEAEREREREREREEREEEEEEEEE 
“VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 750 MS 
001356 CMP TIME #750. :WAS MEASURED TIME AT LEAST 750 MS? 
BHIS 3$ 7BR IF IT WAS 
TRAP CSERHRD 


wO 
~WORD M55 
~WORD ERR17 
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CZRINAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN@83 15:44:57 PAGE 28-2 SEQ 0068 
TEST 2 PORT ‘A’ SEIZE/TIMEOUT TEST 


















021604 012746 003471 MOV #FRMT14,<(SP) 
021610 012746 000001 MOV #1,-(SP5 
021614 010600 MOV SP-RO 

021616 104414 TRAP C$PNTB 
021620 062706 000004 ADD #4,SP 


FARRER ERAERAAEERAEEE EEE EEEEEEEEEEAAEAEREEEAEEREREEREEEREEEEEEEEEEREEREEREEEKE 


iVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


021624 3$: :SET PRIORITY TO 5 
021624 012700 000240 MOV #PRI0S,RO 
021630 104441 TRAP C$SPRI 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 
021632 005037 002302 CLR RELERR ich EAR THE "RELEASE ERROR ' INDICATOR 
021636 013737 002404 002334 MOV RPDS ,BADADR SFORM THE ADDRESS OF RPDS FOR TYPEOUT 
1644 012737 011700 002336 MOV #MOL'PGM!DPR!DRY!VV,EXPTED ;COMPARISON CONSTANT 
021652 113777 002246 160522 MOVB = PORTA, aRPCS2 SELECT PORT A 
21660 017737 160520 002346 MOV PDS, TMP T THE DRIVE” STATUS REGISTER FROM PORT A. 
1666 042737 024005 002346 BIC SPIPIORL (OM! ILV, TAP ABD ZCLEAR DONT CARES 

021674 013737 002346 002342 MOV TMP2, TMPO sCOPY IT’ INTO *TMPO' 
021702 042737 100100 002342 BIC #ATA‘VV, THPO CLEAR PORT pPEPENDENT BITS FROM THE COPY 
021710 113777 002250 160464 MOVB = PORTB, aRPCS2 :SELECT T B. 

021716 017737 160462 002350 MOV DS. TMP T THE "DRIVE STATUS REGISTER FROM PORT 8. 
021724 042 024005 002350 BIC #PIP!URLOM!ILV, ine 3  sCLEAR DONT CARES 

abet O38) tatty egret BIC atu TmPt COPY IT INTO PENDENT BITS FROM THE COPY 
021746 oeeoas bosses 002344 CMP TMPO, TMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
021754 001021 BNE 67$ é 

021756 005737 002342 TST TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
021762 001065 BNE 69$ [BR IF NOT 

021764 104456 TRAP  CSERHRD 
021766 .WORD 
021770 010751 SWORD EMG 
021772 013534 -WORD ERR15 

021774 012746 003716 MOV #FRMT17,=(SP) 

022000 012746 000001 MOV = (SP) 

022004 010600 V 

22006 104414 TRAP  (C$PNTB 

022010 062706 000004 ADD 
022014 000137 022302 JMP 718 :BYPASS THE REST OF THE CHECKS 

022020 013737 002346 002332 67$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
022026 013737 002250 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
022034 113777 002250 160340 MOVB PORTB.a@RPCS2 :SELECT PORT 

922042 005757 002342 ist TMPO SEE IF ST TATUS EQ 0 FROM PORT A. 

022050 013737 002246 0022 MOV PORTA, PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
022056 013737 002350 00233 MOV TMP3,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 

022064 113777 002246 160310 MOVB PORTA,aRPCS2 :SELECT A. 

Sete TSE O0ess6 Sr 4 SEE JF STATUS EQ ZERO FROM PORT B. 

022100 012737 177777 002302 68$: MOV #-1,RELERR [SET "RELEASE ERROR*® INDICATOR 

022106 104456 TRAP cs SERHRD 
022110 000011 WORD 
022112 007313 “WORD EM26 
022114 013214 “WORD ERRO 





ee ee 
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a RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 28-8 SEQ 0069 
TEST 2 PORT ‘A® SEIZE/TIMEOUT TEST 


02211 012746 3716 MOV #FRMT17,-(SP) 

85 1 § 012746 oO8 005 MOV #1,<(SP5 

022126 010600 MOV P’RO 

022130 104414 TRAP  C$PNTB 

022132 06 706 000004 ADD #4,SP 

022136 0137 002346 002332 69$: MOV TMP2 BADDAT :LOOK FOR eIT FAILURES WHEN RPDS READ 

022144 013737 002246 002 MOV PORTA, PTNBR [CHANGE PORT 

022152 042737 10000 0023 BIC WATA BADDAt ;DON' T CHECK THE ATTN BIT 

022160 023737 002336 002332 CMP XPTED,BADDAT ALL BITS OK ? 

022166 001414 BEQ 0$ [BR IF OK FROM PORT A. 

022170 10445 TRAP  C$ERHRD 

022172 00001 «WORD 11 

022174 72 ;WORD M7 

022176 013000 “WORD ERRS 

022200 012746 003471 MOV #FRMT14,-(SP) 

022204 012746 000001 MOV #1,=(SP) 

022210 010600 MOV SP*RO 

022212 104414 TRAP  C$PNTB 

022214 062706 000004 ADD #4,SP 

022220 013737 002350 002332 70$: MOV TMPS ,BADDAT sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
002266 MOV ;CHANGE PORT NUMBER 

022234 042737 100000 002332 BIC #ATA, BADDAT :DON'T CHECK THE ATTN BIT 

022242 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 

022250 001414 BEQ 71$ :BR IF OK 

022252 104456 TRAP  C$SERHRD 

022254 000014 «WORD 12 

Geeee8 Stites on Es 

§35508 4 746 003522 MOV erRaTIS -(SP) 

022266 012746 000001 MOV #1,-(SP5 

022272 010600 MOV P; 

022274 104414 TRAP CSPNTB 

022276 062706 000004 ADD #4,SP 

022302 718: 


FERRARA AAEAEAEEEEAEEEAEEEEEREREEAARERAAREEEREREEREREEEAEEREEEEEREREEEEEEEEEE 


CHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
THE REGISTERS ARE STORED ON THE STACK. 


022302 013737 002250 002266 4$: MOV PORTB,PTNBR ZCHANGE "PORT NUMBER’ TO, THE OPPOSITE PORT 
022310 013737 002406 002334 MOV RPER1,BADADR § :ADDRESS OF RPER1 FOR TYPEOU 
022316 012637 002332 MOV (SP)+,BADDAT CHECK THE_ STORED CONTENTS OF RPER1 
022322 001414 BEQ +32 [CONTENTS ZERO ? 
022324 104456 TRAP CSERHRD 
022326 000024 «WORD 20 
22330 006004 WORD 
022322 012726 “WORD ERR4 
022334 012746 003471 MOV #FRMT14,-(SP) 
022340 012746 000001 MOV #1,-(SP5 
022344 010600 MOV SP,RO 
022346 104414 TRAP  C$PNTB 
022350 062706 000004 ADD #4,SP 
022354 01373 002416 002334 MOV RPMR1,BADADR ; ADDRESS OF RPMR1 FOR TYPEOUT 
022362 012637 00233 MOV (SP)+.BADDAT § :CHECK THE STORED CONTENTS OF RPMR1 
22 001414 BEQ +32 [CONTENTS ZERO ? 
022370 104456 TRAP CSERHRD 
022372 000024 0 


022374 


> 
: 


6 
as ed et’ OYA. PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 28-4 SEQ 0070 — 
TEST 2 POR * SEIZE/TIMEOUT TEST ier 


022576 012726 .WORD ERRG 
022400 O1g746 003471 MOV #FERMT14,<(SP) 

022404 012746 000001 MOV #1,=(SP5 

022410 010600 MOV SP-RO 

022412 104414 TRAP CsPute 

022414 062706 000004 ADD SP 

022420 013737 002400 002334 MOV apa BADADR ZADDRESS OF RPDA FOR TYPEOUT 
022426 012637 002332 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPDA 
022432 001414 BEQ +32 [CONTENTS ZERO ? 

022434 104456 TRAP  CSERHRD 

022436 000024 .WORD 20 

022440 0060 “WORD 

022442 012726 ‘ ERRG 

022444 012746 003471 MOV #FRMT14,=(SP) 

022450 012746 000001 MOV #1,-(SP5 

022454 010600 MOV SP.20 

022456 104414 TRAP  (C$PNTB 

022460 062706 000004 ADD #4,SP 

022464 013737 002412 002334 MOV RPLA,BADADR ZADDRESS OF RPLA FOR TYPEOUT 
022472 012637 002332 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPLA 
022476 001414 BEQ +32 [CONTENTS ZERO ? 

022500 104456 TRAP  CSERHRD 

022502 000024 .WORD 20 

022504 4 <WORD EM6 

022506 012726 “WORD ERR4 

022510 012746 003471 MOV #FRMT14,-(SP) 

022514 012746 000001 MOV #1,-(SP5 

02 320 010600 MOV 

022522 104414 TRAP  C$PNTB 

022524 062706 000004 ADD #4,SP 

022530 013737 002434 002334 MOV RPER3,BADADR = ; ADDRESS OF RPER3 FOR TYPEOUT 
022536 012637 002332 MOV (SP)+,BADDAT CHECK THE STORED CONTENTS OF RPERS 
022542 001414 BEQ +32 [CONTENTS ZERO ? 

022544 104456 TRAP  C$ERHRD 

022546 000024 .WORD 20 

022550 006004 ;WORD EM6 

022552 012726 -WORD  ERR4 

022554 012746 003471 MOV #FRMT14,=(SP) 

022560 012746 000001 MOV #1,-(SP5 

022564 010600 MOV 

022566 104414 TRAP CSPNTB 

$oer0 poe7gs ieee 002334 nov aeOF BADADR ADDRESS OF RPOF FOR TYPEOUT 
022602 012637 002332 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPOF 
022606 001414 BEQ +32 *CONTENTS ZERO ? 

022610 104456 TRAP CSERHRD 

022612 000024 .WORD 20 

022614 “WORD 

022616 012726 , ERR4 

022620 012746 003471 MOV #FRMT14,=(SP) 

022624 012746 000001 MOV #1,-(SP5 

022630 010600 MOV x 

022632 104414 TRAP  (C$PNTB 

022634 062706 000004 ADD #4,SP 

022640 01373 002426 002334 MOV RPDC ,BADADR sADDRESS OF RPDC FOR TYPEOUT 
022646 012637 0023 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPDC 
022652 001414 BEQ +32 [CONTENTS ZERO ? 
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L10040: 


TEST vg V04.00 1-JAN-83 15:44:57 PAGE 28-§ 


mens 


ERR4 
#FRMT14,<(SP) 
#1,<(SP5 


SP-RO 
CSPNTB 


RPSN,BADADR 
(SP) +,BADDAT 


CSERHRD 
21 


ERR4 
#FRMT14,<(SP) 
#1,-(SP) 


SP; RO 
CSPNTB 
#4,SP 
RPEC1,BADADR 
(SP) +, BADDAT 
+ 

CSERHRD 

21 

EM6 


ERR4 
#FRMT14,=(SP) 
#1,-(SP5 

P’RO 


Ss 
CSPNTB 


RPECD,BADADR 
(SP) +,BADDAT 


CSERHRD 

21 

ERRG 

#FRMT14,-(SP) 

#1,-(SP5 
P’RO 

CSPNTB 


#FRMT14,-(SP) 
#1,-(SP5 
SP’RO 

CS$PNTB 

#4,SP 


CSETST 


sADDRESS OF RPSN FOR TYPEOUT 
sCHECK THE STORED CONTENTS OF RPSN 
SCONTENTS ZERO ? 


sADDRESS OF RPEC1 FOR TYPEOUT 
sCHECK THE oo CONTENTS OF RPEC1 
SCONTENTS ZERO 


sADDRESS OF RPEC2 FOR _TYPEOUT 
sCHECK THE STORED CONTENTS OF RPEC2 
ZCONTENTS ZERO ? 


sEXIT NOW 


SEQ 0071 | 


CZRIJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 29 SEQ 0072 
[TEST 3 SEIZE/TIMEOUT TEST 
1 .SBTTL TEST 5 SEIZE/TIMEOUT TEST 
§ :*VERIFY THA’ THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
4 :* IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
£ [* A. WRITE 0°S INTO RPDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
i :* HAS BEEN SEIZED. 
9 i* B. READ EACH DRIVE REGISTER, EXCEPT RPCS1, THROUGH PORT ‘A’; 
10 :* VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
12 :* (C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
13 :* MEASURE THE DURATION OF THE TIMEOUT NE SHOT AND SAVE THE 
14 ie VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE T 
13 :* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS $500" MS. 
17 ‘ 
18 023104 T3:: 
22 023104 005737 002340 TST DRVBAD zSYSTEM OK? 
023110 001402 BEQ 648 [TAKE BRANCH IF SO... 
023112 104432 TRAP — CSEXIT 
023114 001714 .WORD 110041-. 
023116 648: :SET PRIORITY TO 5 
023116 012700 000240 MOV #PRIOS,RO 
023122 104441 TRAP — C$SPRI 
START THE TIMER 
3124 005037 002304 CLR Tl ZCLEAR THE ELAPSED TIME COUNTER 
023130 012737 002342 002306 MOV #1250.,WATCH SET WATCH TO 1250. MS 
33 SASAAAAAAAEAARAARAATAEAKAEAASATAAAAAAAARARAAAAAAAAAAAAAAAARAEEEREEAEREREEEAREREREEE 
:SEIZE THE DRIVE THROUGH PORT B 
023136 113777 002250 157236 MOVB PORTB,aRPCS2 ;SELECT PORT B 
023144 013737 002250 002270 MOV PORTB,SEIZPT ;STORE SEIZING PORTS ADDRESS 
023152 005077 157222 CLR @RPDA ;WRITE RPDA 
023156 113777 002246 157216 MOVB = PORTA, aRPCS2 :SELECT POR 
023164 013737 002246 002266 MOV PORTA.PTNBR ;MOVE" PORT ADDRESS” TO LOCATION FOR TYPEOUT 
023172 013737 00224 00287 MOV PORTA,OP ITE* PORT ADDR 
023200 017737 157200 00233 MOV @RPDS ,BADDAT ste IF DRIVE SEIZED BY PORT B 
023206 013737 002404 002334 MOV RPDS ,BADADR [GENERATE BAD REGISTER ADDRESS 
023214 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZERO 
023220 023737 002336 002332 CMP EXPTED,BADDAT :1S THE REGISTER ZERO 
023226 001406 BEQ 5$ BR IF IT IS 
023230 104456 TRAP  CSERHRD 
023232 000001 .WORD 1 
023234 005705 “WORD EMG 
023236 012576 “WORD RR2 
023240 000137 025010 ae jmp :BYPASS REST OF THE SUBTEST 
023244 113777 002 50 157130 "  MOVB-=—s PORTB, aRPCS2 :SELECT PORT B 
023252 013737 2 50 0022 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Psaseq Baorsy O2000% 00538 ROY GRPOS |BADDAT {SEE IF SEIZING PORT SEES CORRECT. STATUS 
023274 012737 011700 009336 MOV SROL {PGA IDPRIDRY! VV, EXPTED sExPECTED STATUS 
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6 
EST MACRO V04.00 1-JAN-83 15:44:57 PAGE 29-1 SEQ 0073 


MOV EXPTED,TMP1 ;USE GOOD DATA AS A MASK 
COM TMP1 [COMPLEMENT THE EXPECTED STATUS 
BADDAT TMPO 3 SAVE THE ACTUAL § 

MP1, TAPO AR UNWANT 


ED Bit tee 
expréD” TMPO TARE THE EXPECTED STATUS BITS SET ? 


CMP 

BEQ 66$ BR IF 
TRAP pero 

WORD 


WORD EMS 
-WORD ERR3 


668: 
FARRAR AAAAAAAAAAEEAAE EASE EE EEAAAEAAAAAEREAEAAEAAREREAAAAAEAEREREEEEEEEEAAAEEE 

TREAD THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 
MOVB PORTA, aRPCS2 :SELECT 
MOV PORTA,PTNBR ; PORT ADDR $s TO LOCATION FOR TYPEOUT 
MOV @RPECS,-(SP) © ;STORE REGISTER RPEC2, PORT A, CHECK 
MOV @RPEC1.-(SP) STORE REGISTER RPEC1. PORT A. FOR CHECK 
MOV PSN, -(SP SSTORE REGISTER RPSN, PORT A, FOR CHECK 

PDC.=(S [STORE REGIST C. PORT A, FOR CHECK 

MOV @RPOF .=(SP) [STORE REGIST F. PORT A, FOR CHECK 
MOV @RPERS,-(SP) § :STORE REGISTE r$, PORT A, FOR CHECK 
MOV PLA,-(SP) SSTORE REGISTER RPLA, PORT A, FOR CHECK 
MOV @RPDA.=(SP) SSTORE REGISTER RPDA, PORT A. FOR CHECK 
MOV PMR1,-(SP)  :STORE REGISTE A. FOR CHECK 


@RPAR ; PMR1, PORT 
MOV @RPER1 ,-(SP) 7STORE REGISTER RPER1, PORT A, FOR CHECK 


fF TTAASAAAAAERAAAAAA AEA EEEEEEAEAAAAEEAEEAEEEEEAAEEREARAAEEAAAEEAREREEEREREREEEEE 


:QAIT FOR PORT B TO TIMEOUT 


1$: TST a@RPDS ;WAIT FOR THE DRIVE TO TIMEOUT 

BNE 2$ ‘BR WHEN | TIMEOUT OCCURS 

TST WATCH CHECK WA TCH 

BNE 1$ BR IF NOT ZERO 

TRAP CSERHRD 

.WORD 18 

<WORD £EM36 

“WORD ERR11 

MGV #FRMT15,-(SP) 

MOV #1,-(S 

MOV SP’RO 

TRAP  (C$PNTB 

ADD #4,SP 

JMP 4$ :BYPASS TIMEOUT TIME CHECK 
28: 7SET PRIORITY TO 7 


MOV #PR107,RO 
TRAP CSSPRI 


FTTH SAAAEAEKAAAEHAS SHAKES ASAE EAEEAEAERERERAEAAEAAAAAAAAAEEAAKEAEEEEEEERAeeEeEe 


:VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 750 MS 


cMP TIME ,#750. sWAS MEASURED TIME AT LEAST 750 MS? 
BHIS 3 BR IF IT WAS 





———_-----——- 
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CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 29-3 SEQ 0074 
TEST 3 SELZE/TIMEOUT TEST 

023532 012746 003522 MOV #FRMT1S,<(SP) 

02 536 012746 000001 MOV #1,-(SP5 

023542 010600 MOV P’RO 

023544 104414 TRAP (C$PNTB 

023546 062706 000004 ADD #4,SP 


fF PRARAAAAEAAAAAEREAEA AE EAE HAE AEEAAAAAAAEREEAAAEAEEERAEAEAAEREEAEEHEEAAAARAEREREREE 


iVERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 


02355 3$: :SET PRIORITY TO 
023552 012700 000240 MOV #PR105, RO 
023556 104441 TRAP  C$SPR 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 
023560 005037 002302 CLR RELERR cL EAR THE "RELEASE ERROR * INDICATOR 
023564 013737 002404 002334 MOV RPDS ,BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
023572 012737 011700 002336 MOV #MOL ! PGM'DPRIDRYIW, EXPTED ;COMPARISON CONSTANT 
023600 113777 O02246 1565746 MOVB =~ PORTA, aRPcse 3SELECT PORT’ A. 
023606 017737 156572 002346 MOV @RPDS, TMP? GET THE DRIVE STATUS REGISTER FROM PORT A. 
023614 042737 024005 902546 BIC SPIPIORL (OM! ILV, inp2 sCLEAR DONT CARES 
023422 013737 002346 00234 MOV TMP2 TH Y IT INTO ' 
0256 042737 100100 002342 BIC WATA'VV,TMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
023636 113777 002250 156536 MOVE —«~PORTB, afp $2. :SELECT PORT 6. 
02 017737 156534 002350 MOV @RPDS.T :GET THE PORIVE STATUS REGISTER FROM PORT B. 
023652 042737 024005 002350 BIC SPIPIORL (OM! ILV, TMP ZCLEAR DONT CARES 
$5 3660 O13585 ett oosece Bie paratwe TMP1 ZEOPY IT INTO “TH T BITS FROM THE COPY 
233674 038737 00 329 b053e4 coe THPO. THPI is THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
023704 poses 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
023710 001065 BNE 69$ [BR IF NOT 
023712 104456 TRAP CSERHRD 
023714 000006 «WORD 6 
023716 010751 WORD 
023720 013534 “WORD ERR15 
023722 012746 003716 MOV #FRMT17,-(SP) 
023726 012746 000001 MOV #1,-(SP5 
023732 010600 V “RO 
023734 104414 TR CSPNTB 
23736 062706 000004 ADD #4,SP 
023742 00013 924250 JMP 71$ sBYPASS THE REST OF THE CHECKS 
023746 013737 902 6 002332 67$: MOV TMP2 .BADDAT [SET UP POSSIBLE BAD DATA FOR s ERROR MESSAGE 
023754 013737 002250 002266 MOV PORTB,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
023762 113777 002250 156412 MOVB PORTB.aRPCS2 :SELECT PORT B. 
ssirre cae Oe ee" se dag © 9 Maen vam 
023776 013737 007246 002266 MOV PORTA, PTNBR ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
24 013737 002350 00233 MOV THP3 BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
024012 113777 002246 362 MOVB  PORTA,aRPCS2 SELECT PORT A. 
924020 005737 002344 Ist TH :SEE IF STATUS EQ ZERO FROM PORT B. 
024026 012737 177777 002302 68$: MOV #~1,RELERR ZSET "RELEASE ERROR® INDICATOR 
4034 104456 TRAP SERHRD 
024036 000011 WORD 
024040 007313 SWORD £&M26 
024042 013214 <WORD ERRO 








‘CA peter tartar a eee ——— ee 
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CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 29-8 SEQ 0075 
Test 3 SELZE/TIMEOUT TEST 
024044 012746 003716 MOV —s- #FRMT17,-(SP) 
024050 012746 000001 MOV #1,=(SP§ ‘ 
024054 010600 MOV P’RO 
924056 104414 TRAP  CS$PNTB 
024060 062706 ADD 4,SP 
34064 01373 002 6 002332 69$: MOV THB2 -BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
024072 013737 002246 0022 MOV PORTA, PTNBR :CHANGE PORT R 
024100 040737 1 00233 BIC #ATA NS ADDAT :DON'T CHECK THE ATTN BIT 
024106 023737 002336 00233 CMP XPTED,BADDAT ALL BITS OK ? 
024114 001414 BEQ [BR IF OK FROM PORT A. 
024116 104456 TRAP CSERHRD 
024120 000013 «WORD 11 
024122 72 ;WORD M7 
024124 84 3000 <WORD ERRS 
024126 012746 003471 MOV #FRMT14,-(SP) 
024132 012746 000001 MOV #1,-(SP5 
24136 010600 MOV SP-RO 
024140 104414 TRAP  C$PNTB 
024142 062706 000004 ADD #4,SP 
024146 013737 002350 002332 70$: MOV Tbs BADDAT sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
024154 013737 002250 002266 MOV PORTB, PTNBR “CHANGE PORT NUMBER 
024162 042737 100000 002332 BIC #ATA,BADDAT :DON'T CHECK THE ATTN BIT 
024170 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT 6. 
024176 001414 BEQ :BR IF OK 
024200 104456 TRAP  CSERHRD 
024202 000014 «WORD 12 
024204 006072 “WORD EM7 
024206 013000 “WORD ERRS 
024210 012746 003522 MOV #FRMT15,-(SP) 
024214 012746 000001 MOV #1,-(SP5 
024220 010600 MOV ‘ 
024222 104414 TRAP  C$PNTB 
024224 062706 000004 ADD #4,SP 
024230 71$: 
FREAAAAAAAAEAEAAEEEEEEE ERASE EEEEEEEEEEEREEEEEEAEEEEEEEEEEEREEEREEEEEEREEEEEEEEE 
SCHECK THE REGISTERS STORED THROUGH PORT A. ALL REGISTERS SHOULD BE ZERO. 
[THE REGISTERS ARE STORED ON THE STACK. 
024230 013737 002246 002266 4$: MOV PORTA, PTNBR ZCHANGE "PORT NUMBER® To THE OPPOSITE PORT 
024236 013737 002406 002334 MOV RPER1.BADADR § :ADDRESS OF RPER1 FOR TYPE 
024244 012637 00233 MOV (SP)+,BADDAT CHECK THE STORED CONTENTS OF RPER1 
024250 001414 BEQ +32 [CONTENTS ZERO ? 
024252 104456 TRAP C$SERHRD 
024254 000024 .WORD 20 
024256 006004 -WORD EM6 
24260 012726 “WORD ERR4 
024262 012746 003522 MOV #FRMT15,=(SP) 
024266 012746 000001 MOV #1,-(SP) 
024272 010600 MOV P’RO 
024274 104414 TRAP  (C$PNTB 
024276 062706 000004 ADD #4,SP 
024302 013737 002416 002334 MOV RPMR1,BADADR ; ADDRESS OF RPMR1 FOR TYPEOUT 
024310 012637 00233 MOV (SP)+,BADDAT CHECK THE STORED CONTENTS OF RPMRI 
024314 001414 BEQ + [CONTENTS ZERO ? 
024316 104456 TRAP §CSERHRD 
024320 000024 «WORD 20 
024322 006004 ;WORD EM6 








6 
CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 29-4 SEQ 0076 
TEST 3 SEIZE/TIMEOUT TEST 


024 012726 .WORD ERR 
024 $ 012746 003522 V #FRMT15,=(SP) 

024 012746 000001 MOV #1,-(SP5 
024336 010600 V SP-R 
924340 104414 TRAP C$PNTB 
024 0627 000004 ADD 4,$ 
024346 013737 002400 002334 MOV RPDA,BADADR ZADDRESS OF RPDA FOR TYPEOUT 
024354 012637 002332 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPDA 
024360 001414 BEQ +32 [CONTENTS ZERO 

024362 104456 TRAP  CSERHRD 

024364 000024 -WORD 20 
024366 006004 ‘ 
024370 012726 .WORD ERR4 
024372 .012746 003522 MOV #FRMT15,=(SP) 
024376 012746 000001 MOV #1,-(SP) 
024402 010600 MOV 
024404 104414 TRAP C$PNTB 
024406 062706 000004 ADD #4,SP 
024412 013737 002412 002334 MOV RPLA,BADADR ZADDRESS OF RPLA FOR TYPEOUT 
024420 012637 00233 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPLA 
024424 001414 BEQ +32 *CONTENTS ZERO ? 

024426 104456 TRAP § CSERHRD 

024430 000024 .WORD 20 

024432 ;WORD 

024434 012726 < ERR4 

024436 012746 003522 MOV #FRMT15,=(SP) 

024442 012746 000001 MOV #1,-(SP5 

024446 010600 MOV 

50 104414 TRAP  CS$PNTB 

024452 062706 000004 ADD #4,SP 

024456 013737 002434 002334 MOV RPER3,BADADR ADDRESS OF RPER3 FOR TYPEOUT 
024464 012637 002332 MOV (SP)+,BADDAT | :CHECK THE STORED CONTENTS OF RPER3 
024470 001414 BEQ +32 :CONTENTS ZERO ? 

024472 104456 TRAP  C$ERHRD 

024474 000024 .WORD 20 

024476 ‘ 

24500 012726 -WORD ERR4 

024502 012746 003522 MOV #FRMT15,=(SP) 

024506 012746 000001 MOV #1,-(SP5 

024512 010600 MOV Pp: 

024514 104414 TRAP  (C$PNTB 

024516 062706 000004 ADD #4,SP 

024522 013737 002424 002334 MOV RPOF ,BADADR ZADDRESS OF RPOF FOR TYPEOUT 
024530 012637 0023 MOV (SP)+,BADDAT § :CHECK THE STORED CONTENTS OF RPOF 
024534 001414 BEQ +32 SCONTENTS ZERO ? 

024536 104456 TRAP CS$ERHRD 

024540 000024 -WORD 20 

24542 006004 ;WORD 

024544 012726 -WORD ERR4G 

024546 012746 003522 MOV #FRMT15,=(SP) 

024552 012746 000001 MOV #1,-(SP5 

024556 010600 MOV Pp 

24560 104414 TRAP  C$PNTB 

024562 0627 000004 ADD #4,SP 

0245 ot 737 002426 002334 MOV RPDC ,BADADR ZADDRESS OF RPDC FOR TYPEOUT 
024574 012637 002332 MOV (SP)+,BADDAT § :CHECK THE S TORED CONTENTS OF RPDC 
024600 001414 BEQ +32 *CONTENTS ZERO ? 
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See's 
024604 


0 
26 025030 
025030 


000038 


seece 


g 


MU WW 
OR 


ooo—oo0Ko 
=—Mwwr euew 
SROROOR 


sesseeesss 

™m gh ew: 

SESRANS SRS u 
SOOO RUAGL NN 


seco 
ESNN 

x = 

Sao So 


& 
Ne 
&R 


= 
ze 
= 
o 
= 


003522 
000001 


000004 
002436 
002332 


003522 
000001 


000004 
002440 
002332 


003522 
000001 


000004 


003522 
000001 


000004 


002334 


002334 


002334 


5$: 


6$: 
L10041: " 


SSERHRD 
ERR4 
#FRMT15,=(SP) 
#1,<(SP5 
CS$PNTB 


#4 ,SP 
RPSN,BADADR 
a 


+ 
CSERHRD 
21 


ERR4 
Aga bE -(SP) 


#1,-(SP5 
SP,RO 
CSPNTB 
#4,SP 
RPEC1,BADADR 
(SB) + BADDAT 
CSERHRD 

21 

ERR4 
#FRMT15,=(SP) 
#1,-(SP) 
SP,RO 

CSPNTB 


#4,SP 
RPEC2,BADADR 
(SP) +,BADDAT 


mi 

CSERHRD 

21 

ERR4G 
#FRMT15,-(SP) 
#1,=(SP5 
CSPNTB 

4 


e 


#FRMT15,-(SP) 
#1,-(SP5 


CSPNTB 
#4,SP 


CSETST 


sADDRESS OF RPSN FOR TYPEOUT 
sCHECK THE STORED CONTENTS OF RPSN 
CONTENTS ZERO ? 


sADDRESS OF RPEC1 FOR TYPEOUT 
sCHECK THE STORED CONTENTS OF RPEC1 
CONTENTS ZERO ? 


sADDRESS OF RPEC2 FOR TYPEOUT 
sCHECK THE STORED CONTENTS OF RPEC2 
sCONTENTS ZERO ? 


sEXIT NOW 


SEQ 0077 


pS i eee . 4 


N 6 
CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 30 SEQ 0078 
TEST 4 SEIZE/RELEASE TEST 


1 .SBTTL TEST 4 SEIZE/RELEASE TEST 
5 :*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
3 :* A. SEIZE THE DRIVE THROUGH PORT A’ BY WRITING 0°S INTO RPDS. 
4 :* B. CHECK VOLUME VALID AND CLEAR ANY ERROR 
9 7* (C. ISSUE A RELEASE COMMAND THROUGH PORTA’. VERIFY THAT THE DRIVE 
10 :* RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
12 ie . 
13 
112 025032 T4:: 
116 025032 005737 002340 TST DRVBAD sSYSTEM OK? 
025036 001402 BEQ 64$ :TAKE BRANCH IF SO 
025040 104432 TRAP  C$EXIT 
025042 001314 .WORD 110042-. 
025044 64$: 
:START THE TIMER 
025044 005037 002304 CLR TIME CLEAR THE ELAPSED TAME COUNTER 
025050 012737 002342 002306 MOV #1250.,WATCH SET WATCH TO 1250. 


sddhiginenntentennstettsentaetadbatantonmmnteetantoamenteiiieemmennbenanhe 


| 

| 

| 

| 

| 

:SE17E THE DRIVE AND CHECK VOLUME VALID 
3SEIZE THE DRIVE THROUGH PORT A | 

6 MOVB PORTA,@RPCS2 ;SELECT POR | 
| 

| 

| 

| 

| 

| 

| 


025056 113777 002246 15531 
025064 013737 002246 002270 MOV PORTA,SELZPT ;:STORE SEIZING PORT* $ ADDRESS 
025072 005077 155306 CLR @RPDS :WRITE RPDS 
025076 013737 002250 002272 MOV PORTB,OPPRT :"OPPOSITE' PORT ADDRESS 
025104 005037 002276 CLR Ck *CLEAR THE "CHECK ERROR’ INDICATOR 
025110 017737 155270 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF R 
025116 013737 002404 002334 MOV RPDS,BADADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
025124 012737 000100 002336 MOV #VV,EXPTED ig WHAT REGISTER SHOULD BE 
025132 013737 002552 00234 MOV BADDAT, TMPO “MOVE REGISTER CONTENTS TO ‘TMPO 
025140 042737 177677 00234 BIC #*CVV, HPO SAVE SPECIFIED BITS 
025146 023737 002336 002342 CMP EXPTED, TMPO SCOMPARE THE BIT 
025154 001427 BEQ <BR IF OK 
025156 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA® 
25164 042737 000100 002352 BIC #VV, TMPG *CLEAR THE MASKED BITS 
025172 053737 002352 002336 BIS TMP4, EXPTED :"OR® WITH GOOD DATA FOR TYPEOUT 
25200 104456 TRAP  C$ERH 
025202 3 . WORD 
25204 006342 “WORD M13 
025206 012726 “WORD ERR4 
025210 012746 003716 MOV #FRMT17,-(SP) 
025214 012746 000001 MOV #1,-(SP5 
025220 010600 MOV SP,RO 
025222 104414 TRAP  C$PNTB 
025224 062706 000004 ADD #4,SP 
025250 005137 002276 i COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
025234 012777 000040 155140 MOV #CLR,aRPCS2 ICLEAR DRIVE 





— 





CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 30-4 
TEST 4 SEIZE/RELEASE TEST 


113777 002246 155132 MOVB peree @RPCS2 
013737 002246 002266 MOV PORTA,PTNBR 
012777 000015 155106 MOV #13,aRPCS1 
sSTART THE TIMER 
005037 002304 CLR TIME 
012737 000050 002306 MOV #40. ,WATCH 
005737 0023506 69$: TST WATCH 
001375 BNE 


SEQ 0079 


FERRARA AAAAAEREEREEEE ERE EEE REREREREEEREEEEEEEREEEREEEREREREEREREEREEEREEEEEE 


sRELEASE THE DRIVE FROM PORT A 


sSELECT P 


MOVE’ PORT ADDRESS. 72 LOCATION FOR TYPEOUT 


s ISSUE RELEASE THROUGH PORT A 


CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 40. MS 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 


005037 002302 CLR RELE :CLEAR THE "RELEASE ERROR ° INDICATOR 
013737 002404 002334 MOV RPDS, THE ADDRESS OF RPDS FOR TYPEOUT 
012737 011700 002336 AMOL!PGM!DPR!DRY!VV,EXPTED ;COMPARISON CONSTANT 
113777 002246 155050 PORTA, a@RPC ; 
017737 155046 002346 MOV PDS, TMP T THE DRIVE STATUS REGISTER FROM PORT A. 
737 024005 002346 BIC #PIP!URL!OM!ILV, iM Pe, :CLEAR DONT CARES 

013737 002346 00234 TMP2 TM : COBY IT’ INTO "TMPO* 

2737 100100 00234 BIC WATA‘VV,TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
113777 00288 155012 MOVB = PORTB, aRPCS2 SELECT 
017737 155010 002350 @RPDS, TMP *GET THE PORIVE’ STATUS REGISTER FROM PORT B. 
042737 024005 002350 BIC #PIP!URLIOM!ILV, TMP3 ZCLEAR DONT CARES 
013737 002350 002344 P3, TMP oPY ITI ' 
042737 100100 002344 BIC HATAIVV,TMP1 -:CLEAR PORT DEPENDENT BITS FROM THE COPY 
023737 002342 002344 CMP PO, THP! is THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005737 002342 rst TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
001065 BNE 2$ [BR IF NOT 
104456 TRAP  CSERHRD 
000006 «WORD 
010751 WORD 6 
013534 “WORD 5 
012746 003716 MOV #FRMT17,-(SP) 
012746 000001 MOV #1,-(SP5 
010600 MOV SP-RO 
104414 TRAP  C$PNTB 
062706 900004 ADD #4, 
000137 025754 JMP 74§ ZBYPASS THE REST OF THE CHECKS 
013737 002346 002332 70$: MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 002250 002266 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
113777 902 50 154666 MOVB PORTB.aRPCS2 :SELECT 
005737 2 ist APO sSEE IF Status “EQ 0 FROM PORT A. 
013737 002246 002266 MOV PORTA, PTNBR 3 SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013737 002350 002332 MOV TMP3,BADDAT :*BAD DATA’ FOR ERROR TYPE OUT 
113777 002246 154636 MOVB orth, @RPCS2. ss : SELECT PORT A 
005737 002344 TST TMP [SEE IF STATUS’ EQ ZERO FROM PORT B. 
001017 BNE we ‘BR IF NOT 
012737. 177777 002302 71$: MOV #~1,RELERR SSET "RELEASE ERROR® INDICATOR 


Nm a mn — a ec a SS 
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104456 
1] 


S38 


3 
013214 
012746 
012746 
010600 


seecess 
SEL 
a 


2 


Nw 
MWA 


3 

= 

Ww 
o 


e232 


® 
S 
FOAn 


4 
& 
NU WW 


seg gezscese 
—W FO RUN 


o=— 
Dd 
SNS SNPS 


ARLOoVR—o-—S 


WRIW—WNWUY 


a 


003716 
000001 


000004 
002346 
002246 
100000 
002336 


003471 
000001 


000004 
002350 
002250 
100000 
002336 


003522 
000001 
000004 
002302 
026276 


002332 


1000 
002352 


002332 
002266 
002332 
002332 


00233 
00226 
002332 
002332 


154406 
002266 


002332 
002334 


002342 


00234 
00234 


008388 
36 


002 


72$: 


73$: 


74$: 


pene 
EM26 


ERRO 
#FRMT17,=(SP) 
..~ (SPS 

CSP TB 
#4,SP 

TMP2 ,BADDAT 
PORTA, PTNBR 
#ATA,BADDAT 
EXPTED ,BADDAT 
73$ 

CSERHRD 

11 

EM7 

ERRS 
#FRMT14,=(SP) 
#1,-(SP) 

P-RO 

CS$PNTB 

#4,SP 

TMP3 ,BADDAT 
PORTB,PTNBR 
HATA, BADDAT 
EXPTED,BADDAT 
CSERHRD 


RELERR 
+6 

is 

PORTA, aRPCS2 
PORTA.PTNBR 
CKERR 

@RPDS ,BADDAT 
RPDS,BADADR ; 
EXPTED 
BADDAT, TMPO 


#*CATA,TMPO ; 
XPTED, TMPO 


5 
BADDAT , THP4 


#ATA, TAPG 
TMP4 ,EXPTED 
SERHRD 


EM17 


SEQ 0080 | 


sLOOK FOR ot FAILURES WHEN RPDS READ 
sCHANGE PORT 

DON'T CHECK THE ATTN BIT 

ZALL BITS OK ? 

78R IF OK FROM PORT A. 


3 CHECK as? Bat BIT FAILURES = FROM PORT B. 
;CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

SEE IF READ OK FROM PORT B. 


epee ay meuvene TO NEUTRAL ? 
360 WAIT Scat ik DRIVE TO TIMEOUT 


sSELECT 

MOVE’ PORT ADDRESS” TO LOCATION FOR TYPEOUT 

sCLEAR THE ‘CHECK ERROR’ INDICATOR 
GET CONTENTS OF RPDS 
; FORM ye hog OF ERROR MESSAGE 

sMOVE REGISTER CONTENTS TO *TMPO" 
SAVE SPECIFIED BITS 

+ COMPA y *, HE BITS 

{COPY "BAD DATA‘ 

CLEAR THE MASKED BITS 

;*OR® WITH GOOD DATA FOR TYPEOUT 


4-9 
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silt 


056573 


026276 
ocoe7e 


NNONN SY 
~“ 


NVNNO 
WWW 
NNN 


A=W NUIT 
NS 

WN 

AN 


ARISRRISLISS= SF 
wo 
NN 


104456 
00000 


Penuusskooeuus 
tes 
RASNAO 


z 


& 
S28 


= 
g 
= 
o 
= 


003716 
000001 


000004 
002276 
026356 


002250 
0 


154244 
002266 


002332 
002334 


00234 
00234 
00234 

002352 


002352 
002336 


154076 
002266 


75$: 


77$: 


JMP 


ERRS 

#FRMT17,=(SP) 

#1,=(SP5 

SP 

CSPNTB 

#4,SP 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
PORTB, a@RPCS2 :SELECT 


TB 
PORTB,PTNBR ;MOVE’ cane ADDRESS TO LOCATION FOR TYPEOUT 
RR R_THE es ERROR’ INDICATOR 
@RPDS, Soaee GET CONTENT S OF 


RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
EXPTED :WHAT REGISTER SHOULD BE 
BADDAT, TMPO :MOVE REGISTER CONTENTS TO ‘TMPO* 
#°CATA.TMPO ;SAVE SPECIFIED BITS 
EXPTED. TMPO : COMPA A RE TH E BITS 
BADDAT, TMP4 ‘COPY "BAD DATA’ 
HATA, TAPG :CLEAR THE MASKED BITS 
TMP4 EXPTED :*OR' WITH GOOD DATA FOR TYPEOUT 
CSERHRD 
EM17 
ERRS 
#FRMT17,-(SP) 
. =(SP5 
RO 
csPute 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
2$ :GO CHECK FOR LOOP ON ERROR 


SARA EREEEEEREEEEEEEEEEEEEEEEEEEAEREREREEREREEREREREEEEREREREREEEREEEEEEEREE 


STF RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
TO RELEASE THE DRIVE 


2$: 
L10042: : 


PORTB,a@RPCS2 sSELECT PORT B 
PORTB,.PTNBR ;MOVE PORT pitt: TO LOCATION FOR TYPEOUT 
@RPDS sWAIT FOR sive heLeasese™ SE DRIVE 


2$ : EN DRIVE 

WATCH [CHECK THE WATC 
'BR IF NOT ZERO 

CSERHRD 

22 

ERR11 

#FRMT14,=(SP) 

#1,-(SP5 

P’RO 

CSPNTB 

#4,SP 


CSETST 


SEQ 0081 | 


OEWN—ODONOUSWN— 


St SS SS 
o-— 


oooo 


— 
g 
S 
— 
rs 


002340 


000004 
002276 


000040 


002306 


153770 
002270 


153612 


- SBTTL 


‘@eneneeeaes 
ae nanenenne 
o 
a 


“4 
uw 
ae 
ee 


64$: 





CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 31 
TEST 5 PORT "B* SEIZE/RELEASE TEST 


TEST 5 PORT "B' SEIZE/RELFASE TEST 

seTEST THE OPERATION OF Tlic RELEASE COMMAND, DRIVE SEIZED 

SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTO RPDS. 
SET VOLUME VALID AND CLEAR ANY ERROR 


ISSUE A_RELEASE COMMAND THROUGH PORT °B*. VERIFY THAT THE DRIVE 
ae TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


TST DRVBAD 
BEQ 643 

TRAP CSEXIT 

» WORD (10043-. 
START THE TIMER 
CLR 
MOV 


TIME 
#1250. ,WATCH 


sSYSTEM OK? 
; TAKE BRANCH IF SO 


sCLEAR THE ELAPSED TIME COUNTER 
SET WATCH TO 1250. MS 


RReeeeeeeeeeeReeeeeeeeeeeeeeeeeeeKKeeeeaneeeantenanreeeeneeenereeeereeeere 


SEIZE THE DRIVE AND CHECK VOLUME VALID 
sSEIZE THE DRIVE THROUGH PORT B 


67$: 


MOVB PORTB,@RPCS2 
MOV PORTB,SEIZPT 
@RPDS 


CLR 
MOV PORTA, OPPRT 
CLR CKERR 

MOV GRPDS -BADDAT 
MOV PDS ,BADADR 
MOV AW EXPT 
MOV BADDAT, TMPO 
BIC #*CVV THO 
CMP EXPTED, TM 

BEQ 67 

MOV 


BADDAT , TMP4 
P4 


BIS TMP4 ,EXPTED 
TRAP = CSERHRD 


.WORD 3 

“WORD EM13 

“WORD ERR4 

MOV #FRMT17,-(SP) 
MOV #1,-(SP5 

MOV SP’RO 

TRAP  C$PNTB 

ADD 44,5 

COM CKERR 


MOV #CLR,@RPCS2 


Git € 0 
FORM REGISTER ADDRESS OF ERROR MESSAGE 


28 
3 COPY 


;SELECT PORT B 


: STORE SEIZING PORT’S ADDRESS 
zWRITE RPDS 


:"OPPOSITE* PORT ADDRESS 
CLEAR aol Ag a ad INDICATOR 


T REG L 
REGISTER CONTENTS TO °TMPO* 


VE 
: save SPECIFIED BITS 
SCOMPARE THE BIT 


"BAD DATA’ 
SCLEAR THE MASKED BITS 
:°OR’ WITH GOOD DATA FOR TYPEOUT 


sSET THE REGISTER COMPARE ERROR INDICATOR 


CLEAR DRIVE 


=o. | 


§ 7 
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FF RARER AAEAAERERAAEEE EEA EEEEEAEREEEEEEEAAEEEEAAREEEEREAAEEEREEEEREEEEEEEE ETE 


sRELEASE THE DRIVE FROM PORT B 


026570 113777 002250 153604 MOVB = PORTB, aRPCS2 :SELECT PORT B 
026576 013737 002250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
026604 012777 000013 153560 MOV #13,aRPCS1 :ISSUE RELEASE THROUGH PORT B 
:START THE TIMER 
026612 005037 002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
026616 012737 000050 002306 MOV #40. ,WATCH SSET WATCH TO 40. M 
026624 005737 002306 69$: ‘TST WATCH 
026630 001375 BNE 
ZVERIFY THAT THE DRIVE IS IN NEUTRAL 
026632 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
026636 013737 002404 002334 MOV RPDS BADADR ‘FORM THE ADDRESS OF RPDS FOR TYPEOUT 
026644 012737 011700 002336 MOV #MOL ! PGMIDPRIDRYIVY. EXPTED ;COMPARISON CONSTANT 
026652 113777 002246 153522 MOVB = PORTA, aRPCS2 :SELECT PORT A, 
26660 017737 153520 002346 MOV arP [GET THE DRIVE STATUS REGISTER FROM PORT A. 
026666 042737 024005 002346 BIC #PIP'URL'OM!ILV,TMP2 | sCLEAR DONT CARES 
26674 013737 002346 002342 MOV TMP2 , THP :COPY IT INTO ‘TMPO 
026702 042737 100100 002342 BIC WATA‘VV,TMPO =: CLEAR PORT pPEPENDENT BITS FROM THE COPY 
026710 113777 00225 133464 MOVB = PORTB, aRPCS2 3SEL ECT PORT B. 
026716 017737 153462 002350 MOV @RPDS. TMP GET THE PORIVE STATUS REGISTER FROM PORT B. 
026724 042737 024005 002350 BIC #PIP'URL'OM!ILV,TMP3 CLEAR DONT CARES 
026732 013737 002350 002344 MOV TMP3, TMP 1 sCOPY IT INTO *TMP1° 
026740 042737 100100 002344 BIC WATA'VV,TMP1 § :CLEAR PORT DEPENDENT BITS FROM THE COPY 
026746 023737 002342 002344 CMP TMPO, TMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
026754 001021 BNE 70$ F NOT 
026756 005737 002342 TST TMPO tREGISTERS ARE THE SAME: ARE THEY ZERO ? 
026762 001065 BNE 72$ [BR IF NOT 
026764 104456 TRAP  CSERHRD 
026766 00 .WORD 6 
026770 010751 “WORD 
026772 013534 : ERR15 
26774 012746 003716 MOV #FRMT17,=(SP) 
027000 012746 000001 MOV #1,=(SP5 
027004 010600 MOV 
271 104414 TRAP  C$PNTB 
027010 062706 000004 ADD #4,SP 
027014 000137 027302 JMP 74$ sBYPASS THE REST OF THE CHECKS 
027020 013737 002346 002332 70$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR sERROR MESSAGE 
027026 013737 002250 002266 MOV »PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
027034 113777 902250 153340 MOVB  PORTB.aRPCS2 SELECT POR 
027042 005737 002342 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
027046 001414 BEQ 71$ ‘BR IF ZERO 
027050 013737 002246 002266 MOV PORTA, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
027056 013737 00235 02332 MOV TMP3, BADDAT :*BAD DATA’ FOR ERROR TYPE OUT 
027064 113777 002246 153310 MOVB  PORTA,aRPCS2 SELECT POR 
027072 005737 002344 TST TMP1 :SEE IF STA tus “EQ ZERO FROM PORT B. 
027076 001017 BNE ‘BR IF NOT 
7100 012737 177777 002302 71$: MOV #~1,RELERR *SET "RELEASE ERROR® INDICATOR 
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027106 104456 TRAP CSERHRD 
02711 11 .WORD 9 
027112 eat “WORD EM26 
027114 013214 “WORD ERRO 
027116 gig 46 003716 MOV #FRMT17,=(SP) 
027122 012746 000001 MOV #1,-(SP) 
027126 010600 MOV SP’RO 
027130 104414 TRAP cSeuT 
027132 0627 0000 ADD #6 
027136 013737 002346 002332 72S: MOV Twb2 BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
027144 013737 002246 002266 MOV R SCHANGE PORT 
027152 042737 100000 002332 BIC PATA-BADDAT [DON'T CHECK THE ATTN BIT 
027160 023737 002336 002332 CMP EXPTED,BADDAT :ALL BITS 
027166 001414 BEQ BR IF OK OKO PORT A. 
027170 104456 TRAP  CSERHRD 
027172 00001 .WORD 11 
027174 006072 ;WORD EM? 
027176 013000 <WORD ERRS 
027200 012746 003471 MOV #FRMT14,-(SP) 
027204 012746 000001 MOV #1,=(SP) 
027210 010600 MOV SP,RO 
027212 104414 TRAP oe 
aoa boe7e¢ nisate 002232 73$ add TAR BADDAT sCHECK RPDS FOR BIT FAILURES FROM PORT B 
027226 013737 002250 002266 MOV PORTB,PTNBR :¢ HANGE PORT R 
27234 042737 100000 002332 BIC HATA, BADDAT SDON'T CHECK THE ATTN BIT 
027242 023737 002336 002332 CMP EXPTED,BADDAT SEE IF READ OK FROM PORT B. 
027250 001414 BEQ 74$ sBR IF OK 
027252 104456 TRAP CSERHRD 
27254 000014 «WORD 12 
027256 006072 ;WORD M7 
027260 013000 “WORD ERRS 
027262 012746 003522 MOV #FRMT15,=(SP) 
027266 012746 000001 MOV #1,-(SP5 
027272 010600 MOV : 
027274 104414 TRAP CSPNTB 
027 76 062706 000004 a ADD ‘ 
027302 005737 002302 1% RELERR :DID DRIVE RETURN TO NEUTRAL ? 
027306 001402 BEQ +6 ‘BR IF IN NEUTRAL 
027310 000137 027624 JMP i$ :GO WAIT FOR DRIVE TO TIMEOUT 
027314 113777 002250 153060 MOVB  PORTB, aRPCS2 ZSELECT PORT B 
027322 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
027330 005037 002276 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
027334 017737 153044 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
027342 013737 902404 002334 MOV RPDS -BADADR FORM ORM REGISTER ADDRESS OF ERROR MESSAGE 
027354 013737 009338 002342 MOV BADDAT, TMPO [MOVE REGISTER CONTENTS TO "TMPO" 
27362 042737 07777 00234¢ BIC #°CATA.TMPO SAVE SPECIFIED BITS 
027370 023737 002336 00234 cM XPTED, TMPO seine 
ris are ieee gases BY RAs EL Be at a 
027414 ee 00235 ieee BIS | Taps EXPTED :*OR® WITH GOOD DATA For TYPEOUT 


EM17 


=o | 
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0 
027620 


027624 


SSRessesss= SR 


RS 
Ww 
IN 
iw 
AN 


SuNSePeoeoes 
mw 


003716 
000001 


003716 
000001 


000004 
002276 
027704 


002246 
002246 
152540 


002306 


003522 
000001 


000004 


152550 
002266 


75$: 


77$: 


JMP 


ERRS 
#FRMT17,=(SP) 
#1,-(SP5 


CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,@RPCS2 SELECT PORT 

PORTA, PTNBR MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKER EAR THE "CHECK ERROR’ INDICATOR 

@RPDS ,BADDAT (cit CONTENTS OF RPDS 

RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

EXPTED :WHAT REGISTER S BE 

BADDAT, THPO sMOVE REGISTER CONTENTS TO ‘TMPO" 
#°CATA.TMPO ;SAVE SPECIFIED BITS 


EXPTED, THPO 3COMPARE THE BITS 

77$ F OK 

BADDAT, TMP4 ?COPY "BAD DATA’ 

BATA, TAPG ‘CLEAR THE MASKED BITS 

TMP4 ,EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
CSERHRD 

EM17 

ERRS 

#FRMT17,=(SP) 

#1,-(SP5 

SP 

csPute 

CRERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
2s :GO CHECK FOR LOOP ON ERROR 


iF RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEQUT 


E COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
370 RELEASE THE DRIVE 


Tif R 


2$: 
L10043: . 


PORTA, @RPCS2 SELECT PORT 
PORTA, PTNBR sMOVE PORT ADDRESS” TO LOCATION FOR TYPEOUT 
@RPDS sWAIT FOR TIMEOUT LEAseBe LEASE DRIVE 


WATCH sCHECK THE WATC 
:BR IF NOT ZERO 
ea 


ERR11 
#FRMT15,=(SP) 
#1,=(SP5 
SP-RO 

CSPNTB 

#4,SP 


CSETST 


SEQ 0085 


4-7 


8. 
CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 32 SEQ 0086 
TEST 6 Pore "a® SEIZE THROUGH ALL MECHANISMS TEST 
& .SBTTL TEST 6 PORT "A® SEIZE THROUGH ALL MECHANISMS TEST 
, :*TEST OPERATION OF SEIZE OPERATION, DRIVE IN NEUTRAL 
;* 
- i* A. VERIF: THAT SEIZE OPERATION DID OCCUR. 
;* 
11 
43 027706 T6:: 
47 027706 005737 002340 TST DRVBAD sSYSTEM 0K?? 
02771 901402 BEQ 64$ STAKE BRANCH IF SO 
027714 10443 TRAP  C$EXIT 
027716 001012 .WORD 110044-. 
027720 64$: 
:SEIZE THE DRIVE THROUGH PORT A 
027720 113777 002246 152454 MOVB PORTA,@RPCS2 ;SELECT PORT 
027726 013737 002246 002270 MOV PORTA, SELZPT i STORE SEIZING PORT S$ ADDRESS 
027734 005777 1524 TST arPcsi zREAD THE CONTROL REGISTER 
027740 113777 002250 152434 MOVB PORTB.ARPCS2 SSELECT PORT B 
027746 013737 002250 0022 MOV RTB,.PTNBR MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
027754 013737 002250 00227 MOV PORTS. OPPRT ‘OPPOSITE’ PORT ADDRESS 
027762 017737 152416 00233 MOV @RPDS.BADDAT “iste IF DRIVE SEIZED BY PORT 
027770 013737 002404 002334 MOV RPDS ,BADADR ;GENERATE BAD REGISTER SODRESS 
027776 005037 002336 CLR EXPTED ‘REGISTER SHOULD BE ZE 
030002 023737 002336 002332 CMP EXPTED,BADDAT :1S THE REGISTER ZERO 
030010 001406 BEQ :BR IF IT IS 
030012 104456 TRAP CSERHRD 
030014 000001 WORD 
030016 005705 “WORD EM4 
030020 1257 “WORD ERR2 
930022 137 030730 ie JMP 1$ ZBYPASS REST OF THE SUBTEST 
030026 113777 002246 152346 MOVB PORTA, aRPCS2 {SELECT POR TA 
0300 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030042 017737 152336 0023 MOV @RPDS.BADDAT " :SEE IF SEIZING PORT SEES CORRECT STATUS 
030050 042737 020005 002332 BIC #OM! PIP! ILV BAD CLEAR D ITS 
030056 012737 011700 002336 MOV PGM'DPR!DRY! VV, EXPTED sENPECTED STAT 
030064 013737 002336 002344 MOV eXOTED® DTH sUSE GOOD DATA AS 
030072 005137 002344 COM TMP1 COMPLEMENT THE EXPECTED STATUS 
030076 013737 002332 00234 MOV BADDAT . TMPO 3 SAVE THE ACTUAL STATUS 
030104 043737 002344 00234 BIC TMP1, TAPO [CLEAR UNWANTED B 1s 
030112 023737 002336 00234 CMP irprép TMPO + ARE THE EXPECTED STATUS BITS SET ? 
030120 001404 BEQ $ [BR IF THEY ARE 
030122 104456 TRAP CSERHRD 
030124 000002 i 
030126 005736 [WORD EMS 
030130 012654 ;WORD ERR3 
0301 66$: 
030132 113777 002266 152242 MOVB = PORTA, aRPCS2 :SELECT PORT 
03014 013737 00224 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS” TO LOCATION FOR TYPEQUT 
030146 012777 13 152216 MOV #13, aRPCSi sISSUE RELEASE THROUGH PORT ADDRESS 
ZSTART THE TIMER 
030154 005037 002304 CLR TIME i CLEAR THE ELAPSED TIME COUNTER 
030160 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. MS 





=o! 


eer 
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TEST 6 PORT *A’ SEIZE THROUGH ALL MECHANISMS TEST 
| 030166 005737 002306 67$: TST WATCH 
| 030172 001375 BNE 67$ 
zSEIZE THE DRIVE THROUGH PORT A 
030174 113777 002246 152200 MOVB PORTA,@RPCS2 ;SELECT PORT 
0 202 013737 902 46 00 270 MOV PORTA,SELZPT ;STORE SEIZING PORT* S_ADDRESS 
03021 013777 00 15217, MOV ASRA, aRPAS “WRITE THE DRIVE: S ATTENTION BIT 
030216 113777 0022 0 152156 MOVB PORTB,aRPCS2 :SELECT PORT B 
030204 013737 002250 902266 MOV PORTB,PTNBR ;MOVE™” PORT ADDRESS TO LOCATION FOR TYPEOUT 
030 013737 002250 00227 MOV TB, OPPRT ‘OPPOSITE’ PORT ADDRESS 
030240 017737 152140 002332 MOV @RPDS ,BADDAT ste IF DRIVE SEIZED BY PORT A 
030246 13737 002404 002334 MOV RPDS BADADR sGENERATE BAD REGISTER ADDRESS 
030254 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZER 
030260 023737 002336 002332 CMP EXPTED,BADDAT 31S THE REGISTER ZERO 
030266 001406 BEQ 68$ :BR IF IT IS 
030270 104456 TRAP CSERHRD 
030272 000001 .WORD 1 
030274 005705 ;WORD EMG 
030276 012576 ;WORD ERR2 
030300 000137 030730 oa JMP 1$ ZBYPASS REST OF THE SUBTEST 
030304 113777 002246 152070 MOVE = PORTA, aRPCS2 :SELECT PORT A 
030312 012737 002246 002266 MOV PORTA, PTNBR :MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
030320 017737 152060 002332 MOV @RPDS.BADDAT "SEE IF SEIZING PORT SEES CORRECT STATUS 
030326 042737 020005 002332 BIC #OM!PIP!ILV CLEAR DONT CARE BITS 
30334 O12? 7? 0117 902356 MOV #MOL !P PGMIDPRIDRY WV, EXPTED EXPECTED STATUS 
30342 013737 002336 002344 MOV EXPTED, THP1 ;USE GOOD A AS A MASK 
030350 005137 002344 COM TMP1 | COMPL EMENT THE EXPECTED STATUS 
030354 013737 002332 00234 MOV BADDAT, TMPO 3 SAVE THE ACTUAL S$ 
030 043737 002344 00234 BIC TMP1, TAPO LEAR UNWANTED pits 
030370 023737 002336 00234 CMP EXPTED, TMPO TARE THE EXPECTED STATUS BITS SET ? 
030376 001404 BEQ [BR IF THEY ARE 
030400 104456 TRAP  CSERHRD 
030402 2 «WORD 2 
030404 0057 ;WORD EMS 
030406 012654 aes <WORD ERR3 
PeOdle 18757 posses bo22Ke MOV, PORTACPTNGR’ SHOVE’ SORT ADDRESS TO LOCATION FOR TYPEOUT 
030424 012777 000018 151740 MOV #13, aRPCS1 sISSUE RELEASE THROUGH PORT ADDRESS 
:START THE TIMER 
030432 005037 002304 CLR TIME CLEAR THE ELAPSED LIne COUNTER 
030436 012737 000050 002306 MOV #40. WATCH [SET WATCH TO 40. M 
030444 005737 002306 70$: ST WATCH 
030450 001375 BNE 
7SEIZE THE DRIVE THROUGH PORT A 
030452 113777 002246 151722 MOVB PORTA,@RPCS2  ;SELECT PORT 
030460 013737 0 224 992270 MOV PORTA SEIZPT STORE SEIZING Port +$ ADDR ESS 
030466 012777 177777 15171 MOV aye 7 77 INTO RPER1 
030474 113777 002250 151700 MOVE _—« PORTB, ake se ssevect PORT 





} 


ao 
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TEST 6 PORT °A* SEIZE THROUGH ALL MECHAN TEST 


= 

g 

“n 
4am 


930508 0137 00235 0 0022 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
230 90¢¢ MOV PORTB,OPPRT ‘OPPOSITE’ PORT ADDRESS 
030516 177 151 002 32 MOV @RPDS ,BADDAT ste IF DRIVE SEIZED BY PORT 
030524 ae te 002404 0023 MOV RPDS ,BADADR SGENERATE BAD REGISTER ADDRESS 
0305 903037 002336 CLR EXPTED REGIS TER SHOULD BE ZERO 
030536 023737 002336 002332 CMP XPTED,BADDAT :1S THE REG'STER ZERO 
030544 001406 BEQ 1$ [BR IF IT iS 
030546 104456 TRAP CSERHRD 
030550 000001 «WORD 1 
030552 005705 ;WORD EMG 
030554 012576 <WORD ERR2 
030996 000137 030730 a JMP 1$ zBYPASS REST OF THE SUBTEST 
030562 113777 002246 151612 MOVB PORTA, aRPCS2 :SELECT PORT A 
030570 013737 002246 0022 MOV PORTA, PTNBR :MOVE’ PORT ADDRESS TO, LOCATION FOR TYPEOUT 
030576 017737 151602 00233 MOV @RPDS,BADDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
0 042737 020005 002332 BIC #OM!PIP! ILV,BADDAT LEAR DONT CARE BITS 
030612 012737 011700 002336 MOV SROL 'PGAIDPRIDRY VV, EXPTED senpieten STATUS 
030620 013737 002336 MOV EXPIED, TMP1 ;USE GOOD DATA K 
030626 005137 002344 COM MP1 SCOMPLEMENT THE EXPECTED STATUS 
030632 013737 002332 002342 MOV BADDAT, TMPO : SAVE THE ACTUAL UAL STATUS 
030640 043737 002344 00234 BIC TMP1, TAPO [CLEAR UNWANTED BITS 
030646 023737 002336 002342 CMP EXPTED, THPO ARE THE E EXPECTED STATUS BITS SET ? 
030654 001404 BEQ 72$ [BR IF THEY ARE 
030656 104456 TRAP  CSERHRD 
030660 000002 «WORD 2 
030662 005736 ;WORD EMS 
030664 012654 “WORD ERR3 
030666 72$: 
030666 113777 002246 151506 MOVB = PORTA, aRPCS2 :SELECT PORT A 
030674 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030702 012777 000013 151462 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT ADDRESS 
:START THE TIMER 
030710 005037 002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
030714 012737 000050 002306 MOV #40. WATCH SSET WATCH TO 40. M | 
030722 005737 002306 73$:  =‘TST WATCH 
030726 001375 BNE 73$ | 
030730 


1$: 
L10044: 





TRAP CSETST 
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ss NAO RPO7 " PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 33 . SEQ 0089 


E1ZE THROUGH ALL MECHANISMS TEST 


1 .SBTTL TEST 7 PORT 'B* SEIZE THROUGH ALL MECHANISMS TEST 
5 z*TEST OPERATION OF SEIZE OPERATION, DRIVE IN NEUTRAL 
3* 
é t* A, VERIF: THAT SEIZE OPERATION DID OCCUR. 
Q 030732 T7:: 
12 030732 005737 002340 TST DRVBAD zSYSTEM 0K?? 
030736 0014 BEQ 64$ STAKE BRANCH IF SO 
030740 1044 TRAP  C$EXIT 
030742 00101 «WORD 110045-. 
030744 64$: 
:SEIZE THE DRIVE THROUGH PORT B 
030744 113777 002250 151430 MOVB PORTB,a@RPCS2 ;SELECT PORT B 
030752 013737 002250 002270 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
030760 005777 151406 TST arP Peet :READ THE CONTROL REGISTER 
764 113777 002246 151410 MOVB = PORTA, aRPCS2 SSELECT PORT A 
030772 013737 002246 002266 MOV PORTA, PTNBR sMOVE™ PORT ADDRESS TO LOCATION FOR TYPEOUT 
31000 013737 002046 00227 MOV PORTA, ‘OPPOSITE’ PORT ADDRESS 
31006 017737 151372 002332 MOV @RPDSBADDAT SEE IF DRIVE SEIZED BY PORT B 
031014 013737 002404 002334 MOV RPDS ,GADADR 3GEN ERATE oh! REGISTER ADDRESS 
031022 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZERO 
031026 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER ZERO 
031034 001406 BEQ 65$ :BR IF IT 1S 
031056 1 456 TRAP CSERHRD 
03104 «WORD 1 
031042 005705 “WORD EMG 
031044 012576 ;WORD ERR2 
031086 000137 031754 aa JMP 1$ :BYPASS REST OF THE SUBTES? 
031052 113777 002250 151322 MOVB = PORTB, aRPCS2 :SELECT PORT B 
031060 013737 00225 0022 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
031066 017737 151312 00233 MOV @RPDS.BADDAT  :SEE IF SEIZING ORT SEES CORRECT STATUS 
031074 042737 020005 00233 BIC #OM!PIP!ILV LEAR DONT CARE BITS 
031102 012737 011700 002336 MOV #MOL !PGH!DPR'DRY VV EXPTED sEXPECTED STATUS 
031110 013737 002336 002344 MOV EXPTED,TMP1 ;USE GOOD DAiA A 
031116 005137 002344 COM TMP1 7COMPLEMENT THE EXPECTED STATUS 
031122 013737 002332 002342 MOV BADDAT TMPO SSAVE THE ACTUAL STATUS 
031130 043737 002344 00234 BIC TAPO 'CLEAR UNWANTED BIT ts 
031136 023737 002336 002342 CMP eres. TMPO TARE THE E EKPECTED STATUS BITS SET ? 
031144 001404 BEQ ‘BR IF THEY ARE 
031146 104456 TRAP  C$ERHRD 
031150 000002 «WORD 2 
031152 005736 ;WORD EMS 
031154 012654 se ;WORD ERR3 
osttee Maree iesate bo2see HOV" PORTB. area : MOVE TERT ADDRESS: TO LOCATION FOR TYPEOQUT 
031172 012777 500078 15117, MOV #13, Teepcsi sISSUE RELEASE THROUGH PORT ADDRESS 
:START THE TIMER 


002304 CLR TIM LEAR THE ft PSED T TER 
000050 002306 MOV #40. WATCH SET U ATCH TO wth ns —— 





“mo 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 33-1 SEQ 0090 | 
TEST 7 PORT *B* SEIZE THROUGH ALL MECHANISMS TEST 


031212 005737 002306 67$: TST WATCH 
031216 001375 BNE 67$ 


sSEIZE THE DRIVE THROUGH PORT B 


031220 113777 902250 151154 MOVB PORTB,@RPCS2 ;SELECT PORT B 
031206 013737 002250 002270 MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDR ESS 
0312 013777 002264 151146 MOV ASRB,aRPAS sWRITE THE DRIVE'S ATTENTION BIT 
031242 113777 002846 151132 MOVB = PORTA, aRPCS2 SELECT PORT A 
031250 013737 002246 0022 MOV PORTA, PTNBR sMOVE” £7; ADDRESS TO LOCATION FOR TYPEOUT 
031256 013737 002246 00227 MOV PORTA, SITE* BORT ADD RESS 
031264 017737 151114 002332 MOV @RPDS-BADDAT ;SEE IF DRIVE SEI D BY PO TB 
031272 013737 002404 002334 MOV RPDS ,BADADR 3GENERATE BAD REGIS ER ADDRESS 
031300 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZERO 
031304 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGIST ER ZERO 
031312 001406 BEQ 68$ :BR IF IT 1S 
031314 104456 TRAP  CSERHRD 
031316 1 .WORD 1 
031320 005705 “WORD EMG 
031322 012576 “WORD ERR2 
031324 000137 031754 “tr JMP ZBYPASS REST OF THE SUBTEST 
031330 113777 002250 151044 MOVB = PORTB, aRPCS2 :SELECT PORT B 
031336 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
031344 017737 151034 002332 MOV @RPDS,BADDAT  ;SEE IF SEIZING PORT SEES CORRECT STATUS 
O30 MEL p20 iste aay SORIPIPLILVBADDAT EXPTED EXPECTED STATUS nemente 
031366 013737 b02536 ieee MOV EXPTED,THP1 USE GOOD D A AS 
031374 005137 002344 COM TMP1 newt THE EXPECTED STATUS 
031400 013737 002332 00234 MOV BADDAT, TMPO SAVE re ACTUAL STATUS 
031406 043737 002344 00234 BIC TMP1, TAPO “CLEAR UNWANTED Bits 
031414 023737 002336 002342 CMP EXPTED, TMPO ARE THE EXPECTED STATUS BITS SET ? 
031422 001404 BEQ 69$ :BR IF THEY ARE 
031424 104456 TRAP  C$ERHRD 
031426 00 «WORD 2 
031430 005736 “WORD EMS 
031432 012654 - “WORD ERR3 
031434 113777 002250 150740 MOVB = PORTB, aRPCS2 :SELECT PORT B 
031442 013737 002250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS: TO LOCATION FOR TYPEOUT 
031450 012777 000013 150714 MOV #13, aRPCS1 sISSUE RELEASE THROUGH PORT ADDRESS 
:START THE TIMER 
031456 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
031462 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 
031470 005737 002306 70$:  =TST WATCH 
031474 001375 BNE 
:SEIZE THE DRIVE THROUGH PORT B 
031476 113777 002250 150676 MOVB PORTB,@RPCS2 ;SELECT PORT B 
031504 013737 902250 00227 MOV PORTE SELZPT ;STORE SEIZING PORT'S ADDRESS 
031512 012777 177777 150666 MOV 177777, aR WRITE 177777 INTO RPER1 
031520 113777 002246 150654 MOVB PORTA, aRPCS ssevect” PORT A 
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TEST 7 PORT "B’ SEIZE THROUGH ALL MECHANISMS TEST 





PORTA,PTNBR ;MOVE PORT yy TO LOCATION FOR TYPEOUT 
*OPPOSITE’ PORT ADDRESS 


@RPDS,BADDAT ;:SEE IF DRIVE SEITED BY PORT B 
RPDS ,BADADR | GENERATE BAD REGISTER ADDRESS 
EXPTED SREGISTER SHOULD BE ZERO 
EXPTED.BADDAT t1S THE REGISTER ZERO 

1 7BR IF IT IS 
CSERHRD 
EM4 
ERR2 

1$ :BYPASS REST OF THE SUBTEST 
PORTB, aRPCS2 :SELECT 


PORT B 
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
QRPDS BADDAT :SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M!PIP!ILV,BADDAT CLEAR DON BITS 
t PGMIDPRIDRY WV, sEXPTED zennicteD STATU 


#MOL !P 

EXPTED, TMP1 sUSE GOO S_A_MASK 

: 1g | THE EXPECTED STATUS 

BADDAT , THPO sSAVE THE ACTUAL STATUS 

TMP1, THPO CLEAR UNWANTED BITS 

EXPTED, TMPO sARE THE EXPECTED STATUS BITS SET ? 
3BR IF THEY ARE 


pene 

EMS 

ERR3 

PORTB,aRPCS2 SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,aRPCS1 ISSUE RELEASE THROUGH PORT ADDRESS 


sSTART THE TIMER 


CLR 
MOV 
TST 


TIME CLEAR THE ELAPSED tos COUNTER 
vy aac SET WATCH TO 40. M 


CSETST 


CZRINAO RPO7 DUAL PORT TEST MACRO VO4. 00 1~JAN-83 15:44:57 PAGE 34 SEQ 0092 
TEST 8 PORT ‘A’ RELEASE/INTERFERENCE TEST 
1 .SBTTL TEST 8 PORT ‘A’ RELEASE/INTERFERENCE TEST 
g :*VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
4 :* IS SEIZED BY THE OTHER PORT. 
§ i* A. SEIZE THE DRIVE THROUGH PORT "B* BY WRITING 0°S INTO RPDS. 
8 :* B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 
10 :* C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘B’. 
i :* D. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE SWITCHED 
14 8 
15 :* €. RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE RETURNED 
16 :* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
18 , 
82 031756 T8:: 
86 031756 005737 002340 TST DRVBAD :SYSTEM OK? 
031762 901402 BEQ 64$ STAKE BRANCH IF SO 
031764 10443 TRAP C$EXIT 
031766 001542 «WORD 110046-. 
031770 64$: 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
031770 113777 002246 150404 MOVB  PORTA,@RPCS2 ;SELECT PORT #A 
031776 005077 0086 § CLR @RPDS SSEIZE THE DRIVE 
902 012777 090011 150362 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
032010 012777 150354 MOV #13, aRPCS1 SRELEASE THE DRIVE 
:START THE TIMER 
032016 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
032022 03035 000050 002306 MOV #40. ,WATCH ‘SET WATCH TO 40. M 
032030 005737 002306 65$: ‘TST WATCH 
032034 001375 BNE 65 
032036 113777 902250 150336 MOVB PORTB,aRPCS2 ;SELECT PORT #8 
G85 GUO Geter) sonny BY bce RLEE A BMUVEgOUGH wT “0 
032056 O13999 000013 150306 MOV #13.aRPCS1 SRELEASE THE DRI ve 
ZSTART THE TIMER 
32064 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
032070 12037 900050 002306 MOV #40. ,WATCH +SET WATCH TO 40. MS 
32076 737 002306 66$: TST WATCH 
032102 001375 BNE 


FARRAR AAARERERAAEAAEEAAAEAEAEAAEREREREREAAAAREARERAAEAAEERAEAAEAAEREEEEEEREREEE 


sSEIZE THE DRIVE THROUGH PORT B 

3777 002250 0270 MOVB PORTB,@RPCS2 ;SELECT PORT 8 

3737 009989 002270 MOV PORTB,SEIZPT ; STORE SEIZING PORT'S ADDRESS 
5077 15026 CLR @RPDS sWRITE RPDS 





; 
a 


8 
CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 36-4 SEQ 0093 
T 8 PORT "A® RELEASE/INTERFERENCE TEST 
032124 113777 002246 150250 MOVB = PORTA, aRPCS2 :SELECT PORT A 
032132 013737 002246 00 6 MOV PORTA,PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032140 013737 902246 0207 MOV PORTA, OPPRT ‘OPPOSITE’ PORT ADDRESS 
032146 017737 15023 902 3 MOV @RPDS ,BADDAT Ste IF DRIVE SEIZED BY PORT B 
032154 013737 002404 002334 MOV RPDS ,BADADR :GENERATE BAD REGISTER ADDRESS 
032162 005037 002336 CLR EXPTED :REGISTER SHOULD BE ZERO 
032166 023737 002336 002332 CMP EXPTED,BADDAT :1S THE REGISTER ZERO 
032174 001406 BEQ 67$ :BR IF IT IS 
032176 104456 TRAP CSERHRD | 
032200 000001 .WORD 1 
032202 005705 <WORD EMG 
032204 012576 <WORD ERR2 
03220 000137 033530 oe JMP 1$ :BYPASS REST OF THE SUBTEST 
032212 113777 002250 150162 MOVB = PORTB, aRPCS2 :SELECT PORT B 
032220 013737 002250 002266 MOV PORTB,PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032226 017737 150152 002332 MOV @RPDS ,BADDAT SEE IF SEIZING PORT SEES CORRECT STATUS | 
032234 042737 020005 002332 BIC #OM!PEP!ILV BADDAT CLEAR DONT CARE BITS 
032242 012737 011700 002336 MOV TROL LPGRIDPR DRY IY, EXPTED jExE TED TUS 
032250 013737 002336 002344 MOV EXPTED,TMP1 ;USE GOOD DATA A 
032256 005137 002344 COM TMP1 | COMPLEMENT THe "exPeCTED STATUS 
032262 013737 002332 002342 MOV BADDAT TMPO 3SA VE THE ACTUAL STA 
032270 043737 002344 002342 BIC MP1, TAPO LEAR UNWANT YO Ls st | 
032276 023737 002336 002342 CMP ExPTED. TMPO TARE THE EXPECTED STATUS BITS SET ? 
032304 001404 BEQ 68$ 'BR IF THEY ARE 
032306 104456 TRAP  CSERHRD 
032310 000002 «WORD 2 
052312 005736 ;WORD EMS 
032314 012654 “WORD ERR3 
© ReRRHRERERERERREREREEEEREEEERERERREREREEEREREREREEREREREREEREREEREREREREREEEE 

*TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 
o35350 b13r59 igs rhs bosses mov PORTA. areca : MOVE TERT ADDRESS. TO LOCATION FOR TYPEOUT 
032332 012777 000013 150032 MOV #13,aRPCS1 sISSUE A RELEASE COMMAND THROUGH PORT A 

FRAAAAEAAAEEAAAREEEEEEEEEEEEEEEEERAAEREEERAEEREREREEERERREREREEEAEAEEEEREEEEEEEEEE 

‘VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B | 
032340 005037 002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
032344 017737 150034 002332 MOV GRPDS BADDAT cht CONTENTS OF RPDS 
032352 013737 002404 002334 MOV S$ ,BADADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
032 005037 002336 CLR EX XPTED sWHAT REGISTER SHOULD BE 
032 023737 002336 002332 CMP EXPTED,BADDAT :1S THE REGISTER Ok ? 
032372 001416 BEQ 69$ “BR IF O 
032374 104456 TRAP  CSERHRD 
O3Si00 Wie 73 “ORD emt0 
032402 oeseee -WORD ERR3 
032404 012746 003716 MOV #FRMT17,-(SP) 
032410 012746 000001 MOV #1,=(SP5 
032414 010600 MOV P>RO 
032416 104414 TRAP  C$PNTB 
orstSe ite tied 73 ton freer :SET THE REGISTER COMPARE ERROR INDICATOR 
$35¢%0 017737 147736 002332 69$: MOV @RPCS1,BADDAT :GET THE CONTENTS OF RHCS1 





er 








——— 
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SEQ 0094 ¢ 
T 8 PORT ‘A’ RELEASE/INTERFERENCE TEST T 
032436 g1eret 002372 002334 MOV RPCS1,BADADR =; FORM _ADDRESS oF REGISTER | 
032444 032737 020000 002332 BIT WMCPE,BADDAT  :1S "MCP Pee SET 
032452 BEQ ‘BR IF 
032454 oOaee TRAP SERHRD 
032456 5 . WORD 
032460 171 <WORD EM11 
032462 046 .WORD ERR6 
33464 012746 003716 MOV #FRMT17,<(SP) 
032470 012746 000001 MOV #1,-(SP5 
932474 010600 MOV SP,RO 
632476 104414 TRAP  C$PNTB 
32500 062706 000004 ADD #4,SP 
032504 012777 040000 147660 wee MOV #TRE ,@RPCS1 sCLEAR "MCPE* 
032512 005737 002276 TST CKERR zWAS RPDS NON ZERO ? 
032516 001402 BEQ +6 SCONTENTS OF RPDS SEEN BY PORT 
032520 000137 033530 JMP is <DRIVE IN NEUTRAL, BYPASS REST OF TEST 
33 RERAAAAEAAAAAAAAEAAAEAAAAAATAEAEAAAAARAREAAAAAEAAAEAEEEEAAAAEAERAEAAERAEEREREEEREEE 
:RELEASE THE DRIVE FROM PORT B 
032524 113777 002250 147650 MOVB = PORTB, aRPCS2 :SELECT PORT B 
032532 013737 002250 002266 MOV PORTB.PTNBR sMovE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
032540 012777 000013 147624 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT B 
:START THE TIMER 
032546 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
032552 012737 000050 002306 MOV #40. WATCH :SET WATCH TO 40. M 
032560 005737 002306 71$: ‘TST WATCH 
32564 001375 BNE 71$ 
:VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
032566 005037 002302 CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
032572 012737 111700 002336 MOV HATA! MOL !PGM!DPR'DRY! VV, EXPTED sCOMPARISON CONSTANT 
32600 013737 002404 002334 MOV RPDS A DADR REGISTER ADDR ESS 
32606 113777 002246 147566 MOVB RTA, @RPCS2 L T 
032614 013737 002246 002266 MOV PORTA.PTNBR MOVE” * ORT ADDRESS TO LOCATION FOR TYPEOUT 
032622 017737 147556 00234 MOV @RPDS, TMPO sREAD STATUS REGISTER FROM PORT A 
032630 042737 000004 002342 BIC #ILV, TMPO [CLEAR DON'T CARE BIT 
032636 113777 002250 147536 MO PORTS .aRPCS2 SSELECT PORT B 
032644 013737 002250 902266 MOV RTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032652 017737 147526 002332 MOV @RPDS ,BADDAT sDRIVE STATUS FROM PORT 8 
032660 042737 002332 BIC #ILV,BACDAT :CLEAR DON'T AR BIT 
32666 001417 BEQ 72$ [BR IF STATUS FROM PORT B ZERO 
032670 005737 002342 TST TMPO :1$ STATUS FROM PORT A ZERO ? 
032674 001414 BEQ 72$ ‘BR IF ZERO 
032676 104456 TRAP  C$SERHRD 
032700 000016 «WORD 1 
032702 00755 WORD 31 
032704 013362 WORD 12 
0327 012746 003522 V #FRMT15,=(SP) 
032712 012746 000001 MOV = (SP5 
032716 010600 V ~RO 





nee en ar ce ce ne 0 a ee en ene 
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Ha cpu 


AD SP 
MOV TAéO-Bupoat sCHECK STATUS FROM PORT 

MOV PTNBR SCHANGE PORT ADDRESS | FOR TYPEOUT 
CMP OR Teb. BADDAT :COMPARE WITH CONSTAN 

BEQ 3$ 'BR IF OK 


TRAP CSERHRD 
WORD 15 

“WORD M27 

WORD ERRS 

MOV #FRMT15,=(SP) 
MOV #1,-(SP5 


MOV SP, 
TRAP C$PNTB 
ADD #4 ,SP 


sRELEASE THE DRIVE FROM PORT A 


MOVB PORTA, @RPCS2 sSELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,aRPCS1 ISSUE RELEASE THROUGH PORT A 

START THE TIMER 

CLR TIME CLEAR THE ELAPSED COUNTER 

MOV #40. ,WATCH ;SET WATCH TO 40. M 

is WATCH 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR tg cL — THE *RELE*¢SE ERROR * INDICATOR 
MOV eat iPansoegonrivy PAPE, COMP)\RISON CON 


A. 
MOV = @RPDS, TMP GET THE DRIVE STATUS REGISTER FROM PORT A. 
Bic ap 1p URL OM! LV. TRP2 17 FEAR DONT, CARES 

BIC  #ATA'VV,TMPO = CLEAR PORT pPEPEMOENT BITS FROM THE COPY 
MOV — PORTB.aRPCSe SELECT PORT 

MOV = @RPDS,, TMP GET THE DRIVE sTATUS REGISTER FROM PORT B. 
BIC #PIP!WRL'OM!ILV, iRPS sCLEA® DONT CARES 


< 


MOY —-TMP3, TP sCOPY IT INTO TMP I® 
BIC  WATATVV,TMP1 «=: CLEAR POSS DEPENDENT BITS FROM THE COPY 

CMe THO, THEI 18 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST —- TMPO PREGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 778 38R IF NOT 

TRAP CSERHRD 

-WORD 6 

;WORD 

“WORD ERR1S 

MOV = #ERATI7,=(SP) 


MOV @1,-(SP5 
MOV SP; RO 








F 8 
CZRINAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 34-4 SEQ 0096 
T 8 PORT °A® RELEASE/INTERFERENCE TEST 
033220 104414 TRAP  C$PNTB 
033222 962706 900004 ADD #4,SP 
0332 137 0335 JMP 79§ :BYPASS THE REST OF THE CHECKS 
033232 013737 002346 002332 75$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
033240 013737 002250 002266 MOV PORTB,PTNBR 3 SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
033246 113777 902259 147126 MOVB PORTB,aRPCS2 ;:SELECT PORT B. 
033254 005737 00234 TST TMPO :SEE IF STATUS EO 0 FROM PORT A. 
033260 001414 BEQ 76$ R IF ZERO 
033262 013737 002246 002266 MOV PORTA, PTNBR 5 SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
033270 013737 002350 002332 MOV THES jBADoar :"BAD DATA’ FOR ERROR TYPE OUT 
033276 113777 002246 147076 MOVB PORTA,aRPCS2 :SELECT PORT A 
033304 005737 002344 TST TART i SEE IF STATUS EQ ZERO FROM PORT B. 
033310 001025 BNE 77$ F NOT 
033312 012737 177777 002302 76$: MOV #-1,RELERR ofr “RELEASE ERROR’ INDICATOR 
033320 012777 000011 147044 MOV #11.a@RPCS1 [CLEAR THE DRIVE 
033326 012777 000013 147036 MOV #13,aRPCS1 *RELEASE THE DRIVE 
033334 104456 TR CSERHRD 
033336 000011 WORD 
033340 007313 <WORD EM26 
033342 013214 “WORD ERR 
033344 012746 003716 MOV #FRMT17,=(SP) 
033350 012746 000001 MOV #1,-(SP) 
033354 010600 P,RO 
033356 104414 TRAP C$PNTB 
033 062706 ADD #4,SP 
033364 013737 002346 002332 77$:  ##MOV TMP2 ,BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
oer 00 ese 4 008508 b03845 st DATA-BADDAT ‘BONY T CHECK THE ATTN BIT 
033406 023737 bosses OOS 335 CMP EXPTED,BADDAT ALL BITS OK ? 
033414 001414 BEQ 78$ ‘BR IF OK FROM PORT A. 
033416 104456 TRAP  CSERHRD 
033420 000013 .WORD 11 
033422 006072 ;WORD EM? 
033424 013 -WORD  ERRS 
033426 012746 003471 MOV #FRMT14,=(SP) 
033432 012746 000001 MOV #1,-(SP5 
033436 0106 MOV P. 
033440 104414 TRAP  C$PNTB 
Oe atee poe7gs 002350 002332 78$ nov TABS BADDAT CHECK RPDS FOR BIT FAILURES = FROM PORT B 
033454 013737 002250 002266 MOV PORTB, PTNBR + CHANGE 
035462 042737 100000 002332 BIC #ATA, BADDAT :DON'T CHECK THE ATTN BIT 
033470 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT 
033476 001414 BEQ 79$ :BR IF OK 
033500 104456 TRAP CSERHRD 
033502 000014 «WORD 12 
033504 072 ;WORD EM? 
033506 013000 “WORD ERRS 
033510 012746 003522 MOV #FRMT15,=(SP) 
033514 012746 000001 MOV #1,-(SP5 
033520 01 MOV SP-RO 
033522 104414 TRAP  (C$PNTB 
033524 062706 000004 ADD #4,SP 
0335 79$: 
033530 1$: 
90 033530 L10046: 
033530 104401 TRAP CSETST 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 35 SEQ 0097 
TEST 9 PORT °B* RELEASE INTERFERENCE TEST 


1 .SBTTL TEST 9 PORT 'B’ RELEASE INTERFERENCE TEST 
§ ;*VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
4 :* IS SEIZED BY THE OTHER PORT. 
6 :* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RPDS. 
8 :* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. 
10 :e C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A‘. 
I i* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE SWITCHED 
3* 5 
14 3* 
15 7* €. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE RETURNED 
16 :* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
18 , 
19 033532 T9:: 
23 033532 005737 002340 TST DRVBAD sSYSTEM OK? 
033536 001402 BEQ 64$ STAKE BRANCH IF SO 
033540 104432 TRAP — CSEXIT 
033542 001542 .WORD 110047. 
033544 64S: 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
033544 113777 002246 146630 MOVB PORTA,@RPCS2 =; SELECT PORT #A 
033552 005077 146626 CLR @RPDS ?SEIZE THE DRIVE 
033556 012777 000011 146606 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
033564 012777 3 146600 MOV #13, aRPCS1 [RELEASE THE DRIVE 
sSTART THE TIMER 
033572 005037 002304 ~ CLR TIME SCLEAR THE ELAPSED TIME COUNTER 
033576 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 
033604 005737 002306 65$: TST WATCH 
033610 001375 BNE 6 
033612 113777 002250 146562 MOVE  PORTB,@RPCS2 SELECT PORT 4B 
033620 005077 146560 CLR @RPDS ?SEIZE THE DRIVE THROUGH PORT ‘B° 
033624 012777 146540 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
033632 012777 000013 146532 MOV #13. aRPCS1 TRELEASE THE DRIVE 
sSTART THE TIMER 
033640 005037 002304 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
033644 012737 000050 002306 MOV #40. ,WATCH *SET WATCH TO 40. M 
033652 005737 002306 66$: TST WATCH 
033656 001375 E 


PETIT Ti titi iiitir itis iitititiiiiiiiii ir itiitiiritiiiitiiiititititiii tity 
3SEIZE THE DRIVE THROUGH PORT A 
033660 113 2246 146514 MOVB PORTA,a@RPCS2 sSELECT PORT A 
033666 013737 poet 002270 MOV PORTA,SEIZPT ;STORE Se iziNG PORT'S ADDRESS 
03 5 146504 CLR @RPOS sWRITE RPDS 
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SEQ 0098 


TEST 9 PORT "B’ RELEASE INTERFERENCE TEST 
033700 113777 002250 146474 MOVB  PORTB,aRPCS2 :SELECT PORT B 
033706 013737 002250 C022 MOV PORTB,PTNBR MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
033714 01 002250 00227 MOV PORTB, OPP ‘OPPOSITE’ PORT ADDR RESS 
033722 017737 146456 00 3 MOV PDS, BADDAT iste 1F arive SEIZED BY PORT 
033730 013737 002404 334 V RPDS 6 SGENERATE BAD REGISTER ADDRESS 
033736 005037 002336 CLR EX 3 REGISTER SHOULD BE ZERO 
033742 023737 002336 002332 ¢ EXPTED,BADDAT :1S THE REGISTER ZERO 
033750 001406 BEQ 7 :BR IF IT IS 
033752 10445 TRAP  CSERHRD 
033754 .wORD 1 
033756 005705 ;WORD EMG 
033760 012576 SWORD ERR2 
033762 000137 035304 a JMP 1$ :BYPASS REST OF THE SUBTEST 
033766 113777 002246 146406 MOVB = PORTA, aRPCS2 :SELECT 
033774 013737 002246 0022 MOV RTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
034002 017737 146376 002332 MOV @RPDS.BADDAT © ;SEE IF SEIZING PORT SEES CORRECT STATUS 
034010 042737 02 002332 BIC #0M!PIP! ILV,BADDA AR DONT CARE BITS 
034016 012737 011700 002336 MOV 'PGM'DPR'DRY! VV, sEXPTED sExpECTED STATUS 
034024 013737 002336 002344 MOV EXPTED, THP1 ;USE GOOD DAT A MASK 
034032 005137 00234 COM COREL EMENT THE EXPECTED STATUS 
034036 013737 002332 002342 MOV BADDAT, TMPO [SAVE THE ACTUAL STATUS 
044 043737 002344 002342 BIC MP1, THPO [CLEAR UNWANTED BITS 
034052 023737 002336 00234 CMP ExpréD TMPO TARE THE EXPECTED STATUS BITS SET ? 
34060 001404 BEQ [BR IF THEY ARE 
034062 104456 TRAP  CSERHRD 
Bsc0se Dosres “WORD ENS 
03079 12654 “WORD ERR3 
MTTITITITITILI ILL TLL LLL LLL LLL EEE 
:TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT B 
034072 113777 002250 146302 MOVB = PORTB, akPCS2 ZSELECT PORT B 
034100 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TyPEQUT 
034106 012777 000013 146256 MOV #13,aRPCS1 sISSUE A RELEASE COMMAND THROUGH PORT B 
fF REAAAAAAAAAEAAAEAEEAEE EE EAEAAAEAEAAAAAAAAAAEEEEAAEAAAAEAEEAEREAAAEEREEAERAENEE 
“VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT A 
034114 005037 002276 CLR CKERR AR THE "CHECK ERROR' INDICATOR 
034120 017737 146260 002332 MOV @RPDS BADDAT cit CONTEN TS OF R 
054126 013737 002404 002334 MOV RPDS ,BAD sFORM REGISTER ADDRESS OF ERROR MESSAGE 
034134 005037 002336 CLR EXPTED :WHAT REGISTER SHOULD BE 
034140 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER Ok ? 
034146 001416 BEQ BR IF 
034150 104456 TRAP  CSERHRD 
034152 000004 «WORD 4 
034154 006146 “WORD €£M10 
034156 012654 “WORD ERR3 
054160 012746 003716 MOV #FRMT17,-(SP) 
34164 012746 01 MOV 7 (SPS 
034170 010600 MOV SP-R 
034172 104414 TRAP  CSPNTB 
934200 per 002276 ton treRR SET THE REGISTER COMPA RE ERROR INDICATOR 
034204 017737 146162 002332 69$: MOV @RPCS1,BADDAT :GET THE CONTENTS OF RHCS 





: 
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CZRJNAO RPO 
TEST 9 PORT °B’ RELEASE INTERFERENCE TEST 
034212 013737 002372 34 MOV RPCS1,BADADR FORM ADDRESS oF REGISTER 
0 $ 033737 htt 003335 BIT #MCPE.BADDAT  :IS "MCPE’ SET 
034226 001417 BEQ 70$ :BR IF NOT 
0 10445 TRAP ESERHRD 
034 90000 WOR 
034 s 90 171 WORD 
os 4 012746 003716 #FRMT17,-(SP) 
034244 oi 746 000001 MOV #1,-(SP5 
034250 010600 SP 
034252 104414 TRAP  (C$PNTB 
034254 062706 000004 ADD #4,SP 
034260 012777 040000 146104 a MOV #TRE ,@RPCS1 ZCLEAR "MCPE* 
034266 005737 002276 TST CKERR sWAS RPDS NON ZERO ? 
034272 00140¢ BEQ +6 CONTENTS OF RPDS SEEN BY PORT B 
034274 000137 035304 JMP is [DRIVE IN NEUTRAL, BYPASS REST OF TEST 
FF RRA AAAEAEAAEEAAAEEEEE EE EEEEEEEAEAEAEEEEEAAAAAEREAAAAAEREEEAEREAEEEEREEEEEEEEEE 
;RELEASE THE DRIVE FROM PORT A 
034300 113777 002246 146074 MOVB = PORTA, aRPCS2 :SELECT PORT A 
034306 013737 00224 002266 MOV PORTA,PTNBR ;MOV ve" PORT ADDRESS TO LOCATION i. TYPEOUT 
034314 012777 00001 146050 MOV #13, arPcs s ISSUE RELEASE THROUGH PORT 
ZSTART THE TIMER 
034322 005037 002304 CLR TIME CLEAR THE ELAPSED i COUNTER 
034326 012737 000050 002306 MOV #40. WATCH ‘SET WATCH TO 40. M 
34334 005737 002306 71$: «TST WATCH 
034340 001375 BNE 71$ 
ZVERIFY THAT DRIVE IS SEIZED BY PORT @ WHEN RELEASED BY PORT A 
034342 005037 002302 CLR RELE RR :CLEAR "RELEASE ERROR' INDICATOR 
034346 012737 111700 002336 MOV #ATA!MOL !PGM!DPR'DRY!VV,EXPTED ;COMPARISON CONSTANT 
034354 013737 002404 002334 MOV RPDS,BADADR  ;REGISTER ADDRESS 
034362 113777 002250 146012 MOVB = PORTB, aRPC SELE TB 
034370 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
034376 017737 146002 002 MOV @RPDS, TMPO ;READ STATUS REGISTER FROM PORT B 
034404 042737 00004 00254 BIC #ILV, TMPO [CLEAR DON'T CARE BIT 
034412 113777 002246 14576 MOVB PORTA, a@RPCS2 SELECT PORT A 
034420 013737 246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
034426 017737 14575 002332 MOV @RPDS +e DRIVE STATUS FROM ee A 
034434 042737 002332 BIC #ILV,BADD CLEAR DON'T CARE BIT 
034442 001417 BEQ 72$ ‘BR IF STATUS FROM PORT A ZERO 
034444 005737 002342 TST TMPO [1S STATUS FROM PORT B ZERO ? 
034450 001414 BEQ 72$ [BR IF ZERO 
034452 104456 TRAP  CSERHRD 
34454 00001 .WORD 14 
34456 00755 WORD 
034460 013362 “WORD €ERR12 
034462 12746 003522 MOV #FRMT15,-(SP) 
0244 746 000001 MOV #1,=(SP5 
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PORT "B’ RELEASE INTERFERENCE TEST 
| 034474 104414 TRAP  C$PNTB 
03447 706 909004 ADD #4,SP 
034502 013737 00 902 32 728: MOV TMPO ,BADDAT :CHECK STATUS FROM PORT B 
034510 013737 90228 00 66 MOV PORTB,PTNBR [CHANGE PORT ADDRESS FOR TYPEOUT 
034516 023737 002336 002 CMP XPTED,BADDAT :COMPA RE WITH CONSTAN 
034524 001474 BEQ 3$ BR IF 
034526 1044 TRAP  CSERHRD 
034530 00001 .woRD 15 
034532 007400 ;WORD £M27 
034534 013000 ;WORD ERRS 
0 336 012746 003522 MOV #FRMT15,-(SP) 
034542 012746 000001 MCV #1,=(SP5 
034546 010600 MOV SP,RO 
034550 104414 TRAP  C$PNTB 
034552 062706 000004 ADD #4,SP 
034556 73$: 
ZRELEASE THE DRIVE FROM PORT B 
034556 113777 002250 145616 MOVB = PORTB, aRPCS2 ZSELECT PORT B 
034564 013737 002250 0022 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
034572 012777 000013 14557 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT B 
ZSTART THE TIMER 
034600 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
034604 012737 000050 002306 MOV #40. WATCH [SET WATCH TO 40. M 
034612 005737 002306 74$: TST WATCH 
034616 001375 BNE 7 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 
034620 005037 002302 CLR RELERR CL LEAR THE "RELEASE ERROR * INDICATOR 
034624 013737 002404 002334 MOV RPDS ,BADADR ZFORM THE ADDRESS OF RPDS FOR TYPEOUT 
034632 012737 011700 002336 MOV #MOL'PGM!DPR!DRV!VV.EXPTED —:COMPARISON CONSTANT 
034640 113777 002246 145534 MOVE PORTA, aRPCS2 LEC 
034646 017737 145532 002346 MOV @RPDS, TMP ice! THE DRIVE STATUS REGISTER FROM PORT A. 
034654 042737 024005 902546 BIC #PIP'URL OM! ILV, TMP, iCLE T CARES 
034662 013737 002346 00234 MOV MP2. TMP topy IT’ INTO *TMPO* 
034670 042737 100100 002342 BIC WATA'VV,TMPO = CLEAR PORT DEPENDENT BITS FROM THE COPY 
034676 113777 002250 145476 MOVE PORTB,aRPCS2 :SELECT PORT 
34704 017737 145474 002350 MOV PDS. TMP GET THE DRIVE STATUS REGISTER FROM PORT B. 
034712 042737 024 002350 BIC #PIP!URL!OM!ILV, ines sCLEAR DONT CARES 
034720 013737 002350 002344 MOV TMP3 THP1 COPY i INTO "TMP1° 
034726 273 100100 002344 BIC WATA'VV,TMP1 § :CLEAR PORT DEPENDENT BITS FROM THE COPY 
034734 023737 002342 002344 CAP TMPO, TMP1 is THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
034744 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
034750 001073 BNE 77$ ‘BR IF NOT 
034752 104456 TRAP CSERHRD 
034754 WORD 
034756 910731 “WORD € 
034760 013534 -WORD ERR15 
034762 012746 003716 MOV #FRMT17,=(SP) 
034766 012746 000001 MOV #1,=(SP5 
034 01 SP’RO 
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TEST 9 PORT "B’ RELEASE INTERFERENCE TEST 
034774 104414 TRAP  C$PNTB 
034776 062706 000004 ADD #4,SP 
035002 137 035304 JMP ZBYPASS THE REST OF THE CHECKS 
035006 013737 002346 002332 75$: MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
035014 013737 002250 00 266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035022 113777 002250 14 MOVB PORTB,aRPCS2 SELECT PORT B. 
GEsbRe Spitz Desee see ee sf ata” o* 0 FRO" owt A. 
035036 ot 737 002246 602266 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035044 013737 002350 002332 MOV TMP3, ,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
035052 113777 002246 145322 MOVB PORTA,aRPCS2 :SELECT PORT A. 
035060 005737 002344 TST TMP1 'SEE IF STATUS EQ ZERO FROM PORT B. 
035064 001025 BNE 77$ 7BR IF NOT 
035066 012737 177777 002302 76$: MOV #1, RELERR TSET "RELEASE ERROR’ INDICATOR 
035074 012777 000011 145270 MOV #11.aRPCS1 [CLEAR THE DRIVE 
035102 012777 000013 145262 MOV #13,aRPCS1 SRELEASE THE DRIVE 
035110 104456 TRAP CSERHRD 
035112 000011 .WORD 9 
035114 007313 <WORD EM26 
035116 013214 “WORD ERR9 
035120 012746 003716 MOV #FRMT17,-(SP) 
035124 012746 000001 MOV #1,-(SP5 
035130 010600 MOV SP-RO 
035132 104414 TRAP C$PNTB 
035134 062706 04 ADD #4,SP 
035140 013737 002346 002332 77$: MOV TMP2 ,BADDAT zLOOK FOR BIT FAILURES WHEN RPDS READ 
035146 013737 002246 002266 MOV PORTA, PTNBR ‘CHANGE PORT NUMBER 
035154 0427 100000 003352 BIC #ATA,BADDAT :DON'T CHECK THE ATTN BIT 
035162 023737 002 33 CMP EXPTED,BADDAT ALL BITS OK ? 
035170 001414 BEQ 78$ [BR IF OK FROM PORT A. 
035172 104456 TRAP CSERHRD 
035174 00001 .WORD 11 
035176 006072 ~~ ;WORD EM7 
035200 013000 “WORD ERRS 
035202 012746 003471 V #FRMT14,=(SP) 
035206 012746 01 MOV #1,-(SP5 
035212 010600 MOV *RO 
035214 104414 TRAP  C$PNTB 
032535 poere £00386 002332 78$ nov THES BADDAT CHECK RPDS FOR BIT FAILURES = FROM PORT B 
035230 013737 002250 002266 MOV »PTNBR :CHANGE PORT R 
035236 042737 100000 002332 BIC #ATA,BADDAT :DON'T CHECK THE ATTN BIT 
035244 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 
35252 001414 BEQ 79$ 'BR IF OK 
035254 104456 TRAP  CSERHRD 
035256 000014 .WORD 12 
035260 006072 ;WORD EM? 
035262 013000 “WORD ERRS 
035264 012746 003522 MOV #FRMT15,-(SP) 
035270 012746 000001 MOV #1,-(SP5 
035274 010600 MOV SP,RO 
035276 104414 TRAP  (C$PNTB 
035300 062706 000004 ADD #4,SP 
035304 79$: 
035304 1$: 
27 035304 L10047: 
035304 104401 TRAP = CSETST 
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TEST 10 PORT ‘A® RELEASE WITH ERRORS TEST 
1 .SBTTL TEST 10 PORT "A’ RELEASE WITH ERRORS TEST 
4 ;*VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
é :* BIT IS SET IN THE DRIVE. 
: :* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RPDS. 
gb :* B. FORCE ILF ERROR BY ISSUING ILLEGAL COMMAND (03) 
10 :* (. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE ‘GO 
11 7* BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
12 :* THAT RPER1 HAS NOT BEEN CLEARED. 
14 :* D. CLEAR RPER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 
16 :* E. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
V7 -i* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
3* 
19 
100 035306 T10:: 
104 035306 005737 002340 TST DRVBAD sSYSTEM 0K?? 
035312 001402 BEQ 64$ STAKE BRANCH IF SO 
035314 104432 TRAP — C$EXIT 
035316 001436 «WORD 110050-. 
035320 64$: 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
035320 113777 002246 145054 MOVB PORTA,aRPCS2  ;SELECT PORT #A 
035326 005077 145052 CLR @RPDS [SEIZE THE DRIVE 
035332 012777 000011 145032 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
035340 012777 000013 145024 MOV #13, aRPCS1 SRELEASE THE DRIVE 
ZSTART THE TIMER 
035346 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
035352 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 
035360 005737 002306 65$: ‘TST WATCH 
035364 001375 BNE 65$ 
035366 113777 002250 145006 MOVB PORTB,aRPCS2 SELECT PORT #8 
035374 005077 145004 CLR @RPDS SEIZE THe RORIVE THROUGH PORT 'B* 
035400 012777 000011 144764 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
035406 012777 000013 144756 MOV #13, aRPCS1 SRELEASE THE DRIVE 
:START THE TIMER 
035414 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
035420 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. MS 
035426 005737 002306 66$: ‘TST WATCH 
035432 001375 BNE 
Z 3 SAEAAAAAAAAAAAAAAAAAAEATAEASTAAEEAAAAAAAREAAARARAAARAEAEAAAEARARERAEEAEARAEEREREEREEEE 
:SEIZE THE DRIVE THROUGH PORT A 
035434 113777 002246 144740 MOVB PORTA,aRPCS2 =; SELECT PORT 
035442 013737 ppgsne 002270 MOV PORTA, SELZPT ; STORE SEIZING PORT* S ADDRESS 
035450 005077 144730 CLR @RPDS sWRITE RPDS 
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PORTB,OPPRT s"OPPOSITE* PORT ADDRESS 
eRe ORREERHReReeeeeeeeeeeeteeeeaeeaeaeeeaeeeeeeeeeeatetererereeqeerereeeeees 

FORCE AN ERROR 
MOV #3,aRPCS1 :SET ILF BITS 
sSTART THE TIMER 
CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
MOV #40. ,WATCH [SET WATCH TO 40. M 

69$: TST WATCH 
BNE 

:VERIFY THAT ILF IS SET 
CLR CKERR AR THE "CHECK pERROR® INDICATOR 
MOV @RPER1 ,BADDAT eet CONTENTS OF RPER 
MOV RPER1 , BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
MOV #1, EXPTED {WHAT REGISTER SHOULD BE 
CMP XPTED,BADDAT 718 THE REGISTER OK ? 
BEQ 0$ 7BR IF OK 
TRAP CSERHRD 
. WORD 
WORD 
“WORD ERR20 
MOV #FRMT17,=(SP) 
MOV #1,-(SP) 
MOV P-RO 
TRAP  C$PNTB 
ADD #4,SP 

~ COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
MOV #13,aRPCS1 ISSUE A RELEASE COMMAND 
CLR CKERR *CLEAR THE "CHECK ERROR’ INDICATOR 
MOV @RPCS1 BADDAT -GET CONTENTS OF RPCS1 
MOV RPCS1 -BADA zFORM REGISTER ADDRESS OF ERROR MESSAGE 
MOV #4012. spent REGISTER 
MOV BADD MPO. “MOVE REGISTER CONTENTS TO ‘TMPO" 
BIC BADDAT, THEO. SAVE SPECIFIED BITS 
CMP XPTED, TMPO 3COMPARE THE BIT 
MOV BADDAT, TMP4 <COPY "BAD DATA' 
BIC #4012, TMP4 [CLEAR THE MASKED BITS 
BIS TMP4 ,EXPTED :*OR’ WITH GOOD DATA FOR TYPEOUT 
TRAP CSERHRD 
«WORD 3 
SWORD EM1 
“WORD ERR 
MOV #FRMT17,=(SP) 
MOV #1,-(SP5 
MOV SP-RO 
TRAP  C$PNTB 
ADD 44,5 

ul COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


TST CKERR zDID "GO" BIT RESET ? 


a a ne ee 


SEQ 0103 — 





CZRINAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 36- 
TEST 10 PORT °A* RELEASE WITH ERRORS TEST 


036226 


000004 
006146 


Oooo 
bo oat a 
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012777 


113777 


003716 
000001 


003716 
000001 


000004 
002276 


000011 


002246 


102590 
144366 
002266 
002332 


002334 
002332 


144262 
002266 
002332 
002334 


002336 
002332 


144144 


144146 


+6 :BR IF Nor 

is :'GO°’ BIT RESET 

#CLR,@RPCS2 SINIT THE RH 

PORTA, aRPCS2 SEL ECT PORT A 

PORTA PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
,@RPCS1 ZRELEASE THE DRIVE TH PORT 


HROUGH 
BYPASS THE REST OF THE TEST 


FERRARA RARER EREEEEEEEEEEEAEEEEEEEREEEEEEEEEEEREEEREEREREEEREREEEEREREREREEED 


74$: 


768: 


PORTB,a@RPCS2 :SELECT PORT B 
PORTB,PTNBR ;MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
Ck LEAR at He CHECK ERROR’ INDICATOR 
GRPDS BADDAT :GET CON NTS OF PDS 

S,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
EXPT D :WHAT REGISTER SHOULD BE 
EXPTED,BADDAT 1S THE REGISTER OK ? 

‘BR IF OK 

CSERHRD 
EM24 


ERR 

#FRMT17,=(SP) 

#1,-(SP5 
P-RO 


sete 
CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
PORTA, aRPcs2 :SELECT PORT A 
RTA.PTNBR :HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
Ck THE "CHECK ERROR’ INDICATOR 
@RPER1 ,BADDAT CONTENTS OF R 
RPER1,BADADR ea REGISTER ADDRESS OF ERROR MESSAGE 
#1, EXPTED -WHAT REGISTER SHOULD BE 
EXPTED ,BADDAT 718 THE REGISTER OK ? 
<BR IF OK 
CSERHRD 
EM10 


ERR3 
#FRMT17,-(SP) 
#1,=(SP) 


CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 


FERRARA EEEEEEEEEEEEEEEEEEEEEEEEEEEEARAEEEEEAEEEEEEEEEEREREEREEEEEEEEEEEKEREREEEE 


CLEAR THE ERRORS THROUGH PORT A 


MOV 


#11,aRPCS1 s ISSUE A DRIVE CLEAR 


FERRER EEE EEEEEEEEEEEEEEEEEEEEEEEREEEREEAAEEREREEEREREEREREE EERE 


sRELEASE THE DRiVE FROM PORT A 


MOVE 


PORTA, @RPCS2 SELECT PORT A 


SEQ 0104 | 


=m 


eee a + + + 
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R -00 
TEST 10 PORT "A® RELEASE WITH ERRORS TEST 


036234 013737 002246 0022 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036335 + 37 Spears 907488 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT A 

:START THE TIMER 
036250 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
036254 012737 000050 002306 MOV #40, ,WATCH :SET WATCH TO 40. MS 
036262 005737 002306 78$: TST WATCH 
036266 001375 BNE 7 

:VERIFY THAT THE DRIVE IS IN NEUTRAL 
036270 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
036274 013737 002404 002334 MOV RPDS ,BADADR “FORM THE ADDRESS OF RPDS FOR TYPEOUT 
036302 012737 011700 902336 MOV #MOL!PGM'DPR!DRY'VV,EXPTED ;COMPARISON CONSTANT 
036310 113777 002246 144064 MOVB PORTA,aRPCS2. ;SELECT PORT’A. 
036316 017737 144062 002346 MOV PDS, TMP. sGET THE DRIVE STATUS REGISTER FROM PORT A. 
036324 042737 024005 00234 BIC APIP'URLIOM!ILV.TMP2 | sCLEAR DONT CARES 
036332 013737 902346 00234 MOV TMP2 , THPO :COPY IT’ INT 
036340 042737 100100 00234 BIC WATA'VV,TMPO = CLEAR PORT DEPENDENT BITS FROM THE COPY 
036346 113777 002250 166026 MOVB PORTB,aRPCS2 :SELECT PORT B. 
036354 017737 144024 002350 MOV @RPDS, TMP “GET THE DRIVE STATUS REGISTER FROM PORT B. 
036362 042737 024005 002350 BIC #PIP'WRL'OM!ILV,TMP3 | ;CLEAR DONT CARES 
036370 013737 002350 002344 MOV ‘ : 1t’] y 
036376 042737 100100 002344 BIC MATA! VV, TMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
936408 Beare 002342 002344 one THEO, THPI #34 ba} ata REGISTER THE SAME FROM BOTH PORTS ? 
p3ec1e $0298} 002342 TST TMPO iOrGISTERS ARE THE SAME: ARE THEY ZERO ? 
036420 001073 BNE 81$ <BR IF NOT 
036422 104456 TRAP CSERHRD 
036424 «WORD 6 
036426 010751 .WORD EMG 
036430 013534 ;WORD ERR 
036432 012746 003716 MOV #FRMT17,=(SP) 
036436 012746 MOV #1,-(SP5 
036442 010600 MOV SP 
036444 104414 TRAP —- CSPNTB 
precss OeO1Ss Soo oe MD OBSS YPASS THE REST OF THE CHECKS 
036456 O13737 002346 002332 79%: MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
036464 0137 7 002250 902266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
036472 113777 902250 143702 MOVB PORTB,@RPCS2 ;SELECT PORT B. 
036500 005737 002342 TST TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
036504 001414 BEQ 80$ sBR IF ZERO 
036506 013737 002 46 002266 MOV PORTA, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
036514 0137 7 00235 0083 : MOV TMP3,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
036522 13777 002246 14365 MOVB PORTA,@RPCS2 :SELECT PORT A. 
036930 003737 002344 Ist ret SEE IF STATUS EQ ZERO FROM PORT B. 
036536 03085 177777 902302 80$: MOV #-1,RELERR [SET "RELEASE ERROR*® INDICATOR 
036544 13777 000011 14 620 MOV #11, aRPCS1 [CLEAR THE DR 
036552 12777 000013 14361 MOV #13, aRPCS1 SRELEASE THE DRIVE 
0365 04456 RAP CSERWRD 
giesee fare AO fr 
036566 heat .WORD ERR 
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Appa =(SP) 


#1,=(SP5 


#ATA, BADDAT 
EXPTED ,BADDAT 


CSERHRD 

12 

EM? 

ERRS 
#FRMT15,=(SP) 
#1,-(SP5 
SP,RO 

CSPNTB 


CSETST 







‘in 


SEQ 0106 | 


sLOOK FOR BIT FAILURES WHEN RPDS READ 


sCHANGE PORT 
sDON'T CHECK THE ATTN BIT 
sALL BITS OK ? 


3BR IF OK FROM PORT A. 


CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
E PORT NUMBER 


3 CHANG R 

sDON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
;BR IF OK 


| 
| 
| 
i 
| 
| 
| 
| 
| 


SR eT FS eae 
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B° RELEASE WITH ERRORS TEST 


-SBTTL TEST 11 PORT "B® RELEASE WITH ERRORS TEST 


VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BIT IS SET IN THE DRIVE. 


3* 
+ 
® 
;* A. SEIZE THE DRIVE THROUGH PORT "B® BY WRITING 0°S INTO RPDS. 

-® 

:* B. FORCE ILF ERROR BY ISSUING ILLEGAL COMMAND (03) 

:* C. ISSUE A RELEASE COMMAND THROUGH PORT °B*. VERIFY THAT THE ‘GO° 
-* 

-* 

-& 

-* 

:* 

-* 

-* 





BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
THAT RPER1 HAS NOT BEEN CLEARED. 


D. CLEAR RPER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘B’. 


E. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


T11:3: 
005737 002340 TST DRVBAD sSYSTEM OK?? 
001402 BEQ 64$ + TAKE BRANCH IF SO 
104432 TRAP CSEXIT 
001436 «WORD 110051-. 
64$: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
113777 002246 143404 MOVB PORTA, a@RPCS2 sSELECT PORT #A 
005077 143402 CLR @RPDS SEIZE THE DRIVE 
012777 000011 143362 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
012777 000013 143354 MOV #13, @RPCS1 sRELEASE THE DRIVE 
sSTART THE TIMER 
005037 002304 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
012737 000050 002306 MOV #40. ,WATCH sSET WATCH TO 40. MS 
005737 002306 65$: TST WATCH 
001375 BNE 6 
113777 902250 143336 MOVB PORTB,aRPCS2 ;SELECT PORT 48 
005077 143334 CLR @RPDS SEIZE THEY DRIVE THROUGH PORT ‘B’ 
037050 O12777 000011 143314 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
012777 000013 143306 MOV #13,aRPCS1 SRELEASE THE DRIVE 
sSTART THE TIMER 
005037 002304 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
012737 50 002306 MOV #40. ,WATCH SSET WATCH TO 40. MS 
003737 60 0508 66$: Ist WATCH 
FF TRA AAARRERAEAEAEAEEEEAAEEEEEAEEEEAEEAAAEERAEAAEREAARERAAAEHEEAEEAREEAAEAEREEEEEE 
;SEIZE THE DRIVE THROUGH PORT 8 
113777 002250 143270 MOVB PORTB,aRPCS2 ;SELECT PORT B 
013737 906250 002270 MOV PORTB.SELZPT ;STORE SEIZING PORT'S ADDRESS 
5077 143260 CLR @RPDS sWRITE RPDS 


éntreaniniiminbimnninaieminmnibinkentl, 
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RELEASE WITH ERRORS TEST 


FORCE AN ERROR 
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PORTA,OPPRT ;"OPPOSITE’ PORT ADDRESS 
PITITITII TITTLE LITLE TLI LILI ITLL ith ELL LLL LLL LLL 
MOV #3,@RPCS1 sSET ILF BITS 
sSTART THE TIMER 
CLR TIME CLEAR THE ELAPSED — COUNTER 
MOV #40. ,WATCH 3SET WATCH TO 40. M 
i WATCH 


THAT ILF IS SET 
CLR CKERR AR THE "CHECK ERROR® INDICATOR 
GRPERT -BADDAT beh Con CONTENTS OF RPER 

MOV RPER 1,BADADR FORM REGISTER ADDRESS OF F ERROR MESSAGE 


1, EXPTED WHAT RE 
CMP EXBTED, BADDAT 18 S THE REGISTER OK ? 


Bra 0$ 38 

TRAP CSERHRD 

- WORE 

wood R20 

MOV #FRMT17,=(SP) 

MOV 1,-(SP5 

MOV 3P°RO 

TRAP  C$PNTB 

ADP #4,SP 

CCM CKERR ySET THE REGISTER COMPARE ERROR INDICATOR 
MLV #13,aRPCS1 ZISSUE A RELEASE COMMAND 

cle CKERR SCLEAR THE "CHECK ERRO®* INDICATOR 
MOV @RPCS1,BADDAT ;GET CONTENTS OF RPCS1 


MOV RPCS1,BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
wy #4012.EXPTED 3 piWHAT REGISTER SHOULD BE 

mov BADDAT, TMPO VE REGISTER CONTENTS TO "TMPO' 

BIC oeeOtS. THPO SAVES SPECIFIED BITS 
D, TMP ARE THE BITS 


CMP EXPTED 

BEQ Ha F 

MOV BADDAT, TMP [COPY "BAD DATA 

BIC #4012, TMPG CLEAR THE PAIRED BITS 

BIS TMP4 jEXPTED * WITH GOOD DATA FOR TYPEOUT 
TRAP SERHRD 

WORD 

;WORD EMI 


ERR 
MOV #FRMT17,=(SP) 
MOV #1,-(SP5 
MOV RO 


SP 
TRAP  (C$PNTB 
ADD #4,SP 
COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 


TST CKERR :DID *GO* BIT RESET ? 


ee ee eee 
eae 


—_— a eo eee 
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TEST 11 PORT "B® RELEASE WITH ERRORS TEST 
037414 00100 BNE +6 off 
0 7616 00013 37456 JMP is :'GO’ BIT RESET 
037422 012777 142752 MOV #CLR,aRPCS2 SINIT THE RH11 
037% 113777 902 50 142744 MOVB  PORTB,aRPCS2 :SELECT PORT B 
0374 013737 00 39 002266 MOV PORTB,PTNBR MOVE” PORT ADDRESS TO ead ae FOR TYPEOUT 
037444 012777 000013 142720 MOV #13,aRPCS1 :RELEASE THE DRIVE THROUGH PORT B 
037452 000137 040424 JMP 23 :BYPASS THE REST OF THE TEST 
see MOVE PORTA.ARPCS2 SELECT PORTA ‘REREAAAAERERAAEEEAEREEEE 
037456 113777 002246 142716 * MOVB PORTA, aRPCS2 :SELECT PORT 
037464 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADD Ress TO LOCATION FOR TYPEOUT 
037472 005037 002276 CLR CKERR -CLEAR THE "CHECK ERROR’ INDICATOR 
037476 017737 142702 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
7504 013737 002404 002334 MOV RPDS_BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
037512 005037 002336 CLR EXPTED ;WHAT REGISTER SHOULD BE 
037516 023737 002336 002332 CMP EXPTED.BADDAT [1S THE REGISTER OK ? 
037524 001416 BEQ 4$ [BR IF OK 
0375 106456 TRAP SERHRD 
037530 00000 .WORD 
037532 007171 [WORD  EM24 
037534 040000 “WORD ERR 
037536 012746 003716 Moy #FRMT17,-(SP) 
037542 012746 000001 MOV #1,-(SP5 
037546 010600 MOV SP,RO 
037550 104414 TRAP CSPNTB 
037552 062706 000004 ADD #4,SP 
037556 005137 002276 - COM CKERR :SET THE REGISTER COMPARE ERROR INDICATCS 
B37 26s 113777 002250 142612 MOVB = PORTB, aRPCS2 ZSELECT PORT B 
037570 013737 002250 002266 MOV PORTB,PTNBR :MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
037576 005037 002276 CLR CKER :CLEAR THE "CHECK ERROR’ JIIDICATOR 
602 017737 142600 002332 MOV @RPER1 sBADDAT ict CONTENTS OF RPER1 
037610 013737 002406 002334 MOV RPER 1 BAD : FORM REGISTER ADDRESS OF ERFOR MESSAGE 
037616 012737 1 002336 MOV #1,€X REG HOULD BE 
037624 023737 002336 002332 CMP EXPTED. BADDAT ate THE REGISTER OK ? 
037632 001416 BEQ 6$ [BR IF OK 
037634 104456 TRAP CSERHRD 
037636 000004 .WORD 4 
037640 006146 “WORD M10 
037642 012654 - “WORD ERR3 
037644 012746 003716 MOV #FRAT17,-(SP) 
037650 012746 000001 MOV #1,-(SP5 
037654 010600 MOV 
037656 104414 TRAP  (C$PNTB 
037660 062706 000004 ADD #4,SP 
037664 005137 002276 - COM CKERR :SET THE REGISTER COM2ARE ERROR INDICATOR 


FF TARA A ASAE AHEAAAAHHSAA EAE AAAEHAAAAAAAAAERERAAAEAAIAEAAAREEEEAKEKAAKERENEEEES 


CLEAR THE ERRORS THROUGH PORT B 
037670 012777 000011 142474 MOV #11, aRPCS! ISSUE A DRIVE CLEAR 
PPE iiiiiiiiriiiilisiiiiiiiiiiiiiiiitiiitiiiiitiitt 
RELEASE THE DRiVE FROM PORT B 
037676 113777 002250 142476 MOVE PORTB,@RPCS2 SELECT PORT B 
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037706 013737 2250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
037712 012777 13 1424 MOV #13,aRPCS1 zISSUE RELEASE THROUGH PORT B 
;START THE TIMER 

7720 005037 002304 CLR TIME SCLEAR THE ELAPSED TIME COUNTER 
037724 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 

37732 005737 002306 78$:  =TST ATCH 
037736 001375 BNE 8 

:VERIFY THAT THE DRIVE IS IN NEUTRAL 

37740 005037 002302 CLR RELERR CL EAR THE "RELEASE ERROR ' INDICATOR 
037744 013737 002404 002334 MOV RPDS ,BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
037752 012737 011700 002336 MOV #MOL'PGM'DPR!ORYIVV.EXPTED COMPARISON CONSTANT 
037760 113777 90246 142614 MOV PORTA,aRPCS2  ;SELECT PORT 
037766 017737 142412 002346 MOV @RPDS. TMP? iGEr THE DRIVE STATUS REGISTER FROM PORT A. 
037774 042737 024005 00234 BIC #PIP!URL OM! ILV, TMP. Aran CARES 

0002 013737 002346 00234 MOV TMP2, : by it NTO *TMPO® 
040010 042737 100100 00234 BIC #ATA'VV,TMPO = :CLEAR PORT DEPENDENT BITS FROM THE COPY 
040016 113777 902280 142356 MOVB  PORTB,aRPCS2 SELECT PORT 
040024 017737 142354 002350 MOV @RPDS. TMP T THE DRIVE STATUS REGISTER FROM PORT B. 
0400 042737 024005 002350 BIC SPIPLORL (OM! ILV, TAP sCLEAR DONT CARES 
040040 013737 002350 002344 MOV TMP3, TMP? CoP IT’ INTO ° TPIS 
040046 042737 100100 002344 BIC #ATA‘VV,TMP1 © :CLEAR PORT DEPENDENT BITS FROM THE COPY 
040054 023737 002342 002344 CMP TMPO, THP1 [1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
040062 9019 1 BNE 79$ [BR IF NOT 
04 5737 002342 -  ‘tst TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
040070 001073 BNE 81$ [BR IF NOT 
040072 104456 TRAP CSERHRD 
040074 WORD 
040076 010751 “WORD 
040100 013534 “WORD ERR1S 
040102 012746 003716 MOV #FRMT17,-(SP) 
940106 012746 000001 MOV #1,-(SP5 
040112 010600 v 
040114 104414 TRAP (C$PNTB 
040116 0627 ADD 
04012 040424 JMP :BYPASS THE REST OF THE CHECKS 
040126 013737 346 002332 79%: MoV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
040134 013737 00225 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
940142 113777 002250 1422 MOVB PORTB.@RPCS2 :SELECT PORT B. 
040150 005737 002342 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
040154 001414 BEQ 80$ 7BR IF ZERO 
040156 013737 002246 0022 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
040164 013737 2350 0023 MOV TMP3, BADDAT :"BAD DATA® FOR ERROR TYPE OUT 
0401 2 113777 002246 14220 TA,@RPCS2 SELECT PORT A 

0200 005737 002344 TST TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
040204 001025 BNE 81$ [BR IF NOT 
940206 o1 73? 177777 002302 80$: MOV #-1,RELERR SET RELEASE ERROR’ INDICATOR 
040214 012777 000011 14215 MOV #11, aRPCS1 [CLEAR THE DRIVE 
040222 012777 000013 142142 MOV #13, aRPCS1 SRELEASE THE DRIVE 
9408 104456 TRAP = CSER 
hiss ate WORD Pn 
040236 013214 -WORD ERR 
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TEST 11 PORT "B® RELEASE WITH ERRORS TEST 
003716 MOV #FRMT17,<(SP) 
000001 MOV #1,<(SP5 
MOV SP-RO 
TRAP = CSPN 
ADD #4 $P 
: 4 902352 81$: MOV TMP2 ,BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
002246 00 2 MOV PORTA, PTNBR [CHANGE PORT NUMBER 
1 002 BIC #ATA, BADDAT [DON'T CHECK THE ATTN BIT 
002 0023 CMP EXPTED,BADDAT ALL BITS OK ? 
BEQ $ [BR IF OK FROM PORT A. 
TRAP  CSERHRD 
.WORD 11 
.WORD EM? 
<WORD ERRS 
003471 MOV #FRMT14,<(SP) 
000001 MOV #1,-(SP5 
MOV SP*RO 
TRAP  C$PNTB 
000004 ADD #4,SP 
002350 902382 82$: MOV TMP3 ,BADDAT :CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
002250 002266 MOV PORTB, PTNBR :¢ PORT k 
100000 002332 BIC #ATA,BADDAT [DON'T CHECK THE ATTN BIT 
002336 002332 CMP XPTED,BADDAT :SEE IF READ OK FROM PORT B. 
BEQ 3$ :BR IF OK 
TRAP  CSERHRD 
.WORD 12 
“WORD M7 
“WORD ERRS 
V #FRMT15,=(SP) 
MOV #1,-(SP5 
MOV P’RO 
TRAP ss 
ADD SP 


83$: 


23: 
110051: 
TRAP CSETST 


=a | 


; 


ee 
mn 
WD 
— 
Pe 
gs 
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040454 005077 
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002340 


002246 
002246 
141724 


I 
1=JAN-83 15:44:57 PAGE 38 SEQ 0112 


-SBTTL TEST 12 PORT ‘A® SEIZE AND CLEAR TEST 


seVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


a 
i* A. SEIZE THE DRIVE BY WRITING 0°S INTO RPDS THROUGH PORT ‘A’. 
* VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
;* 
[* B. ISSUE A DRIVE CLEAR THROUGH PORT ‘A* AND VERIFY THAT THE DRIVE 
* DOES NOT RETURN TO NEUTRAL. 
-@ 
i* (C. ISSUE A MASSBUS CLEAR THROUGH THE RH70 AND VERIFY THAT THE DRIVE 
:* DOES NOT RETURN TO NEUTRAL. 
i* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
ge 
T12:: 
TST DRVGAD zSYSTEM OK? 
648 STAKE BRANCH IF SO 
So, E180 
pigosonnbscecenstesectotouacensenconsnnensnunsnnnennmnentnvesnsanntonenannnel 
$: 
;SEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA,aRPCS2 ;SELECT POR 
MOV PORTA.SEIZPT ;STORE SEIZING PorT* S ADDRESS 
CLR @RPDS ;WRITE RPD 
MOVE = PORTB, anpcs2 :SELECT PORT B 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTB, OPPRT : *OPPOSITE’ PORT ADDRESS 
MOV @RPDS .BADDAT SEE IF ahive SEIZED BY PORT 
MOV RPDS ,BADADR RATE BAD REGISTER ADDRESS 
CLR EXPTED SREGISTER SHOULD BE ZERO 
CMP EXPTED,BADDAT :1S THE REGISTER ZERO 
BEO 65$ 7BR IF IT IS 
TRAP  CSERHRD 
.wORD 1 
[WORD EMG 
“WORD ERR2 
- jmp ZBYPASS REST OF THE SUBTEST 
MOVB PORTA,@RPCS2—__: SELECT PORT 
MOV PORTA.PTNBR * PORT ADDRESS” TO LOCATION FOR TYPEOUT 
MOV @RPDS.BADDAT © :SEE IF SEIZING PORT SEES CORRECT STATUS 
BIC #Om' PIP! ILV, BADD. LEAR DONT CARE BITS 
MOV #MOL 'PGM'DPR' DRY! VV, EXPTED -ExPEETED STATUS 
MOV EXPTED, TMP1 ;USE GOOD DAT A AS A MASK 
COM SCOMPLEMENT THE "exPEC TED STATUS 
MOV BADDAT TMPO SSAVE THE ACTUAL 
BIC [CLEAR UNWANTED Bit ioe 
CMP EnPTéD THPO TARE THE EXPECTED STATUS BITS SET ? 
BEO 66$ [BR IF THEY ARE 


ee 


. 


=m 


~=---_ -—_—_ - - -- -——— — — _— -—_- —_ -—__- 
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TEST 12 PORT “A* SEIZE AND CLEAR T 


0406462 1044 TRAP GSERHRD 
040644 
040646 0057 WORD EMS 
94065 012654 a ;WORD ERR3 
Tine pope eeny 9 Yo eee cogernn manner tact nares 
| IVE CLEAR THROUGH PORT A FIRST 
040652 012777 000011 141512 mov #11,aRPCS1 ZISSUE DRIVE CLEAR THROUGH PORT A 
| FTCA AA SAKA AAS HAASE SA SAS SSAA AAEAAAEAEAAAAAEEAEAAEAEAEAERAAEAEAAEHEREAERARENEE 
VERIFY THAT DRIVE STILL SEIZED BY PORT A 
040660 113777 002250 141514 MOVE  PORTB, aRPCS2 SELECT POR TB 
040666 013737 002250 002266 MOV PORTB, PTNBR :MOVE, PORT ADDRESS TO LOCATION FOR TyPEQUT 
040674 005037 002276 CLR Ck AR THE CHECK ERROR’ INDICAT 
040700 017737 141500 002332 MOV SRDS BADDAT Git CON S$ OF 
040706 013737 002404 002334 MOV RPDS ,BADADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
040714 005037 0023 CLR EXPT PTED :WHAT REGISTER S 
0720 013737 002332 002342 MOV BADD ‘MOVE REGISTER CONTENTS TO ‘TMPO* 
040726 042737 100004 002 : BIC act TS TPO zSAVE SPECIFIED BITS 
040734 023737 002336 00234 CMP EXPTED, THPO 3COMPARE THE BIT 
040742 001427 BEQ 67$ OK 
040744 013737 902332 00235 MOV BADDAT, TMP4 ZCOPY "BAD DATA® 
040752 042737 077773 00235 BIC #77773, TMP ;CLEAR THE MASKED BITS 
760 053737 002352 002336 BIS TMP4 ,EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
040766 1044 TRAP SERHRD 
o778 dei “WORD EM33 
077 0000 <WORD ERR 
040776 012746 003716 MOV #FRMT17,-(SP) 
041002 012746 000001 MOV #1,-(SP5 
041006 010600 MOV PRO 
041010 104414 TRAP  (C$PNTB 
041012 062706 000004 ADD #4,SP 
041016 005137 002276 — COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
pelos 113777 002246 141352 MOVB = PORTA, aRPCS2 ZSELECT PORT A 
041030 013737 002246 002266 MOV PORTA.PTNBR ;MO MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
041036 005037 002276 CLR Ck re "CHECK ERROR' INDICATOR 
041042 017737 141336 002332 MOV @RPDS ,BADDAT cite S OF RPDS 
041050 013737 002404 002334 MOV RPDS BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
041056 012737 011700 002336 MOV #mor | PGR DPRIDRY VV E PTED z:WHAT REGISTER SHOULD BE 
041064 013737 002332 002342 MOV BADDAT, THPO IMOVE REGISTER CONTENTS TO *TMPO" 
041072 2737 1 002342 BIC #°C77773,1TMPO SAVE SPECIFIED BITS 
041100 023737 002336 00234 CMP EXPTED, TMPO 3COMPARE THE BITS 
041106 1487 BEQ 69$ F OK 
041110 013737 9023 : 002353 MOV BAD DDAT, TMP tCOPY "BAD DATA’ 
041116 2737 07 773 00235 BIC 77773, TMPG [CLEAR THE MASKED BITS 
041124 53737 002352 002336 BIS TAPE KPTED :*OR’ WITH GOOD DATA FOR TYPEOUT 
041132 04456 TRAP SERHRD 
$211.36 007701 -WORD £33 
041140 040000 “WORD ERR 
041142 012746 003716 MOV ¢FRMT17,-(SP) 
041146 012746 1 MOV #1,-(SP5 
041152 010600 MOV SP,RO 





- SS 
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| TEST 12 PORT °A* SEIZE AND CLEAR TEST TI 
041154 1044614 TRAP CSPNTB 
pe lt28 Ober ADD #4 ,SP 
a 9 0051 002276 698: COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 
OTT irri iiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiitiititiiiiiiiiiit 
sNOW ISSUE MASSBUS INIT 
041166 012777 000040 141206 MOV #CLR ,a@RPCS2 z ISSUE MASSBUS INIT 


J SRAAAAAAAAEAAAAE AE AHSEA ASEH EEAAAAAAERAAEAAEAAAAEEAAAREREREREAEEEAAAEERERERERE 


CONF IRM THAT DRIVE STILL SEIZED BY PORT A 


041174 113777 002250 141200 MOVB = PORTB, aRPCS2 :SELECT PORT B 
041202 013737 902250 002266 MOV PORTB,.PTNBR MOVE, PORT ADDRESS TO LOCATION FOR TYPEOUT 
041210 005037 002276 CLR Ck LEAR THE "CHECK ERROR’ INDICATOR 
041214 017737 141164 002332 MOV @RPDS ,BADDAT cit CONTENTS OF RPDS 
041 @2 013737 002404 002334 MOV RPDS. BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
041 5037 002356 CLR PTED sWHAT REGISTER S$ 
041234 013737 002332 00234 MOV BADDAT,T VE REGISTER CONTENTS TO *TMPO* 
041242 042737 100004 00234 BIC errs _unro : ave SPECIFIED BITS 
041250 023737 002336 00234 CMP EXBTE ZCOMPARE THE BITS 
041256 001427 BEQ Ok 
041260 013737 902332 002352 MOV BADDAT, TMP4 ZCOPY "BAD DATA® 
041266 042737 077773 00235 BIC a777TS: TMPG :CLEAR THE MASKED BITS 
041274 053737 002352 002336 BIS TMP4 ,EXPTED * WITH GOOD DATA FOR TYPEOUT 
041302 104456 TRAP SERHRD 
041304 .WORD 
O41 gi 3 “WORD 
1310 01 “WORD ERR11 
041312 012746 003716 MOV #FRMT17,-(SP) 
041316 or 746 000001 MOV #1,-(SP5 
041322 01 MOV 
041324 104414 TRAP CSPN 
041326 062706 000004 ADD #4,SP 
041352 005137 002276 me COM CKERR rSET THE REGISTER COMPARE ERROR INDICATOR 
041336 113777 002246 141036 MOVB = PORTA, aRPCS2 ZSELECT PORT 
041344 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS” TO LOCATION FOR TYPEOUT 
041352 005037 0022 CLR CKER *CLEAR THE "CHECK ERROR’ INDICATOR 
041356 017737 141022 002332 MOV @RPDS ,BADDAT cit” CONTENTS OF RPDS 
041364 013737 002404 002334 MOV RPD 6 DADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
041372 01273 011700 002336 MOV #MoL ! PGR! DPR!DRY!VV V,EXPTED sWHAT REGISTER SHOULD BE 
041400 013737 9025 002342 MOV BADDAT, TMPO MOVE REGISTER con TENTS TO ‘TMPO* 
041406 042737 00234 BIC eres. TMPO Save SPECIFIED 
041414 023737 002336 002342 CMP EXBTED, TPO ZCOMPARE THE is 
041422 001427 BEQ 3$ : Ok 
041424 013737 2332 002352 MOV BADDAT, TMP4 :COPY “BAD DATA’ 
0414 042737 077773 00235 BIC #77773, TMPG [CLEAR THE MASKED BIT 
041440 053737 002352 002336 BIS TMP4 ,EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
041446 104456 TRAP cSERH 
04145 000003 .WORD 
041452 01000 : EM34 
041454 040000 “WORD ERR 
041456 012746 003716 MOV #FRMT17,=(SP) 
041462 01 746 000001 MOV #1,-(SP5 
041466 0106 S 
041470 104414 TRAP C$PNTB 
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041472 062706 000004 ADD #4,SP 


Bete? 0051 002°76 73$ COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
sRELEASE THE DRIVE FROM PORT A 

041502 113777 002246 140672 MOVB PORTA, a@RPCS2 sSELECT PORT A 

041510 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION — TYPEOUT 

041516 012777 000015 140646 MOV #13,aRPCS1 s ISSUE RELEASE THROUGH PORT 
sSTART THE TIMER 

O6 1388 005037 002304 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 

0415 012737 000050 002306 MOV #40. ,WATCH zSET WATCH TO 40. MS 

041536 005737 002306 75$: TST WATCH 

041542 001375 BNE 75$ 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 


041544 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
041550 013737 002404 002334 MOV RPDS -BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
041556 012737 011700 002336 MOV #MoL PGM: DPR!DRV! VV -EXPTED :COMPARISON CONSTANT 

041564 113777 002246 140610 MOVE  PORTA,@RPCS2 SELECT TA 

041572 017737 140606 002346 V PDS. TMP GET THE DRIVE “STATUS REGISTER FROM PORT A. 
041600 042737 024005 00234 BIC #PLP!URL 10M! ILV, inp2 ZCLEAR DONT CARES 

041606 013737 002346 00234 MOV TMP2.T OPY IT , 

041614 042737 1001 234 BIC #ATAIVV, TM ZCLEAR PORT DEPENDENT BITS FROM THE COPY 
041622 113777 002250 14055 MOVB PORTB, aRPCS SELECT T 6. 

041630 017737 140550 00235 MOV S$, TMP T THE PORIVE STATUS REGISTER FROM PORT B. 
041636 042737 902350 BIC SP IPIORL ‘OM! ILV. TRE 3 sCLEAR DONT CARES 

041644 013737 002350 002344 MOV TMP3, THP1 :COPY IT INTO *TMP1° 

041652 042737 100100 002344 BIC WATA'VV,TMP1 © :CLEAR PORT DEPENDENT BITS FROM THE COPY 
041660 023737 002342 002344 CMP THEO, THPI 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
041670 005737 002342 TST TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
041674 001073 BNE 78$ :BR IF NOT 

041676 104456 TRAP  C$ERHRD 

041700 «WORD 6 

041702 010751 “WORD 

041704 013534 <WORD ERR15 

041706 012746 003716 MOV #FRMT17,-(SP) 

041712 012746 000001 MOV #1,-(SP5 

041716 010600 MOV ¥ 

041720 104414 TR CSPNTB 

041722 062706 000004 ADD 

041726 000137 042230 JMP 80$ :BYPASS THE REST OF THE CHECKS 

041732 013737 002 5 002352 76$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
041740 013737 002250 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
041746 113777 002250 140426 MOVB PORTB.aRPCS2 SSELECT PORT 

041754 005737 002342 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 

041760 001414 BEQ 77$ ‘BR IF ZERO 

041762 013737 002246 002266 MOV PORTA, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
041770 013737 002350 002 MOV TMP3,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 

041776 113777 002246 140376 MOVB Porth, @RPCS2. ss S SELECT PORT 

042004 005737 002344 TST TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 

042010 001025 BNE 78$ ‘BR IF NOT 
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TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 38-4 


#-1 ,RELERR 
#11,aRPCS1 


#FRMT17,=(SP) 


#1,-(SPS 


PORTA, PTNBR 
#ATA, BADDAT 
EXPTED,BADDAT 
CSERHRD 
11 

EM7 
ERRS 
#ERATI4 


(SP) 
#1,-(SP5 


CSERHRD 
12 
EM? 


ERRS 
#FRMT15,=(SP) 
#1,-(SP5 


SPR 
C$PNTB 
#4,SP 


CSETST 


sSET ‘RELEASE ERROR® INDICATOR 
sCLEAR THE DRIV 
sRELEASE THE DRIVE 


sLOOK FOR BIT FAILURES WHEN RPDS READ 
CHANGE PORT NUMBER 

sDON'T CHECK THE ATTN BIT 

sALL BITS OK ? 

3BR IF OK FROM PORT A. 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 


3; CHAN 
:DON'T CHECK THE ATTN BIT 
a OK FROM PORT B. 


SEQ 0116 © 


-> 


Wo 


WODNAULSWN “OVD ONCUSWwN— 


NS 2 SS RV SO SS 
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PORT "B’ SEIZE AND CLEAR TEST 
.SBTTL TEST 13 PORT "B® SEIZE AND CLEAR TEST 
;*VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
:* PORT TO RELEASE THE DRIVE. 
t* A. SEIZE THE DRIVE BY WRITING 0°S INTO RPDS THROUGH PORT ‘B’. 
:* VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
tt 6B. ISSUE A DRIVE CLEAR THROUGH PORT "B® AND VERIFY THAT THE DRIVE 
= DOES NOT RETURN TO NEUTRAL. 
:* (C. ISSUE A MASSBUS CLEAR THROUGH THE RH70 AND VERIFY THAT THE DRIVE 
:* DOES NOT RETURN TO NEUTRAL 
[* D. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
042232 T13:: 
042232 005737 002340 TST DRVBAD zSYSTEM OK? 
042236 001402 BEQ 64$ STAKE BRANCH IF SO 
042240 104432 TRAP  C$EXIT 
042242 001572 «WORD 110053-. 
oseneaunkenatanetaensencbatnebeusinensnenensinennenneantnensanaieunneeinainns 
042244 64s: 
:SEIZE THE DRIVE THROUGH PORT B 
042244 113777 002250 140130 MOVB PORTB,@RPCS2 ;SELECT PORT B 
042252 013737 002250 002270 MOV PORTB.SELZPT ;STORE SEIZING PORT'S ADDRESS 
042260 005077 140120 CLR @RPDS :WRITE RPDS 
042264 113777 002246 140110 MOVB = PORTA, aRPCS2 :SELECT PORT A 
042272 013737 002246 002266 MOV POR TA,PTNBR ;MOVE” PORT ADDRESS _ TO LOCATION FOR TYPEOUT 
042300 013737 002246 002272 MOV PORTA, OPP ‘OPPOSITE’ PORT ADDRESS 
042306 017737 140072 002332 MOV aRPDS. SADDAT :SkE IF DRIVE SEIZED BY PORT B 
042314 013737 002404 002334 MOV RPDS ,BADADR SGENERATE BAD PEGISTER ADDRESS 
042322 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZERO 
042326 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER ZERO 
042334 001406 BEQ <BR IF IT IS 
042336 104456 TRAP  C$ERHRD 
042340 000001 .WORD 1 
042342 005705 SWORD EM4 
042344 012576 “WORD ERR2 
042346 000137 044034 ihe MP :BYPASS REST OF THE SUBTEST 
be53e5 113777 002250 140022 "  MOVB-=—Ss« PORTB, @RPCS2 :SELECT PORT B 
042360 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
042366 017737 140012 002332 MOV aRPDS ;BADDAT sSEE IF SEIZING PORT SEES CORRECT STATUS 
042374 042737 020005 00233 BIC Paty tate ADDAT LEAR DONT CARE BITS 
042402 012737 011700 002336 MOV SHOL 'PGMIDPRIDRY VV, EXPTED EXPECTED STATUS 
042410 013737 002336 002344 MOV EXPTED, TMP1 :USE GOOD DATA AS A MASK 
042616 005137 002344 COM TMP1 SCOMPLEMENT THE EXPECTED STATUS 
0424e 013737 002332 002342 MOV BADDAT, TMPO [SAVE THE ACTUAL $ 
042430 043737 002344 00234 BIC TMP1, TAPO ‘CLEAR UNWANTED BIT ts 
042436 023737 002336 002342 CMP EXPTED, TMPO SARE THE EXPECTED STATUS BITS SET ? 
042444 001404 BEQ 66$ 7BR IF THEY ARE 


ce 
as 


| 
S. 
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TEST 13 PORT "B* SEIZE AND CLEAR TEST 
042446 104456 TRAP  CSERHRD 
042450 000002 .WORD 
042452 005736 “WORD EMS 
042454 012654 ;WORD ERR3 
042456 668: 
RERAAAAAAAAAAAAEAAEEEAEEAAEEAAAAAAAAAARARAAARARAAAAAEAERAEREEAAEAAAAEREREEEEAEEEE 
:BRIVE CLEAR THROUGH PORT B FIRST 
042456 012777 000011 137706 MOV #11, aRPCS1 ZISSUE DRIVE CLEAR THROUGH PORT B 
FARAAAAAAEAEREREEAEREEEEE AREA REEAEEAAEREREEEAERAAARERAEREEEEEEREAEEEEEEREEEEE 
‘VERIFY THAT DRIVE STILL SEIZED BY PORT B 
042464 113777 002246 137710 MOVB = PORTA, aRPCS2 sSELECT PORT A 
042472 013737 002246 002266 MOV PORTA,PTNBR MOVE PORT ADDRESS TO LOCATION FOR TyPEOUT 
042500 005037 002276 CLR Ck aie "CHECK ERROR’ INDICATOR 
042504 017737 137674 002332 MOV @RPDS -BADDAT in S OF RPDS 
042512 013737 002404 002334 MOV RP DS .BA DADR Fon REGISTER ADDRESS OF ERROR MESSAGE 
042520 005037 002336 CLR EXP TED REGISTER S 
042524 013737 002332 002342 MOV BADDAT MOV vE REGISTER CONTENTS TO ‘TMPO* 
042532 042737 100004 002342 BIC ctTT hs THRO SAVE SPECIFIED BITS 
042540 023737 002336 002342 CMP EXPTED, TAPO ZCOMPARE THE BITS 
042546 001427 BEQ 67$ <BR 
042550 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
042556 042737 077773 002352 BIC #77773, TMP4 :CLEAR THE MASKED BITS 
042564 053737 002352 002336 BIS TMP4 ,EXPTED *OR' WITH GOOD DATA FOR TYPEOUT 
042572 104456 TRAP SERHRD 
042574 99 03 «WORD 
042576 01 [WORD M33 
042600 04 “WORD ERR 
042602 012746 003716 MOV we RATA? -(SP) 
042606 012746 000001 MOV fl, (SP5 
042612 010600 MOV RO 
042614 104414 TRAP csPurs 
042616 062706 000004 ADD SP 
O426ee 005137 002276 oa COM tk KERR :SET THE REGISTER COMPARE ERROR INDICATOR 
042626 113777 002250 137546 MOVB PORTB, aRPcs2 7SELECT PORT B 
042634 013737 002250 002266 MOV PORTB.PTNBR sMOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
042642 005037 2276 CLR Ck EAR THE ‘CHECK ERROR’ INDICATOR 
042646 017737 137532 002332 MOV RPDS BADDAT GET CONTENTS OF RPDS 
042654 013737 002404 002354 MOV S ,BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
042662 Bigtes 0117 02336 MOV See te PRIDRY! VV V,EXPTED s WHAT REGISTER SHOULD BE 
042670 013737 002332 002342 MOV BADDAT Faron sMOVE REGISTER couteNTs TO 'TMPO* 
042676 042737 100004 348 BIC #°C77773,1MPO ;SAVE SPECIFIED B 
04 704 33737 002 00234 CMP EXBTED,T TAPO COMPA RET HE Bins 
042714 13037 002332 00235 MOV BADDAT, TMP SCOPY "BAD DATA’ 
04272 27 7 077773 00235 BIC #77773, THPG ‘CLEAR THE MASKED BITS 
0427 53737 002352 002336 BIS TMP4 ,EXPTED :"OR' WITH GOOD DATA FOR TYPEOUT 
042736 10445 TRAP SERHRD 
04 740 WORD 
04274 7701 <WORD £33 
042744 040000 “WORD ERR 
042746 012746 003716 MOV #FRMT17,-(SP) 
042752 012746 000001 MOV #1,-(SP5 
042756 0106 MOV SP,RO 





—m— 


TEST 15 PORT "B® SEIZE AND CLEAR TEST 
042760 104414 TRAP serene 
042762 0627 000004 ADD 
be 768 0051 002276 698: COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


FERRARA AEAERAAAAAAEEAEAAEEEEEERAREAERAARAAEEERARERAEERERAEEAREAEREREEEEEREEEE 


;NOW ISSUE MASSBUS INIT 
042772 012777 000040 137402 MOV #CLR,@RPCS2 z ISSUE MASSBUS INIT 


FARRAR EAE AEAEEESEAAEEEEAAEREAAEEERAAAERAAERAAEEREREREREREREEREREEEREEE 
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CONFIRM THAT DRIVE STILL SEIZED BY PORT B 


043000 113777 002246 137374 MOVB = PORTA, aRPCS2 :SELECT PORT A 
043006 013737 002246 002266 MOV PORTA, PTNBR ;MOVE™ PORT ADDRESS TO LOCATION FOR TYPEOUT 
043014 005037 002276 CLR c LEAR THE "CHECK ERROR’ INDICATOR 

043020 017737 137360 002332 MOV GRPDS BADDAT :GET CONTENTS OF RPDS 

043026 013737 002404 002334 MOV S,BAD DADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
043034 005037 002336 CLR x rere :WHAT REGISTER SHOULD BE | 
043040 013737 002332 002342 MOV BADDAT, THPO “MOVE REGISTER CONTENTS TO "TMPO* 
043046 042737 100004 002342 BIC mecrTr ts. TMPO ;SAVE SPECIFIED BITS 
043054 023737 002336 002342 CMP EXPTED, TMPO 3COMPARE THE BIT 

043062 001427 BEQ 71$ 

043064 013737 002332 002352 MOV BADDAT, TMP <COPY "BAD DATA’ 

043072 042737 077773 002352 BIC #77773, TMPG [CLEAR THE MASKED BITS 

043100 053737 002352 002336 BIS TMP4, EXPTED TOR WITH GOOD DATA FOR TYPEOUT 

043106 104456 TRAP USERGRD 

043110 000003 .WORD 3 

043112 010003 “WORD 

043114 013320 “WORD ERR11 

043116 012746 003716 MOV #FRET17,-(SP) 

043122 012746 000001 MOV #5 (SPS 

043126 010600 MOV *R 

043130 104414 TRAP SSENTB 

043132 062706 000004 ADD #4,SP 

043136 005137 002276 ae COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
043142 113777 002250 137232 MOVB = PORTS, aRPCS2 :SELECT PORT B 

043150 013737 002250 002266 MOV PORTB,PTNBR sMOVE poet IpDRESs TO LOCATION FOR TYPEQUT 
043156 005037 002276 CLR Ck EAR THE ‘CHECK ERROR’ INDICATOR 
043162 017737 137216 002332 MOV @RPDS.BADDAT :GET CONTENTS OF RPDS 

043170 013737 0024046 002334 MOV RP RPDS , BADADR FORM REGISTER ADDRESS wor ERROR MESSAGE 
043176 012737 011700 002336 MOV #MOL! seen DPRIDRY!V VV,E ms e° LL. SHOULD BE 
043204 013737 002332 002342 MOV BADDAT, THPO :MOVE REGISTER cbiiEnts TO 'TMPO* 

043212 042737 100004 002342 BIC Perry, THPO SAVE SPECIFIED 

043220 023737 002336 002342 CMP EXPTED,T 3COMPARE THE we 

043226 001427 BEQ 73$ Ok 

043230 013737 002332 002352 MOV BADDAT, TMP4 SCOPY "BAD DATA* 

043236 042737 077773 002352 BIC #77773, THPS [CLEAR THE MASKED BITS 

043244 053737 002352 002336 BIS TMP4 ,EXPTED :*OR® WITH GOOD DATA FOR TYPEOQUT 

043252 104456 TRAP SERHRD 

043254 .WORD 

043256 010003 “WORD EM34 

043260 040000 “WORD ERR 

043262 012746 003716 MOV #FRATI7,=(SP) 

04 3266 12746 000001 MOV #1,-(SP5 

043272 010600 MOV Pp: 

043274 104414 TRAP C$PNTB 
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RPO? DUAL PORT 
PORT *B’ SEIZE 


24330 005137 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


AND CLEAR TEST 


o 


WINING 
NEARSVEROVROON 


WW 


SSSSSussssuss 


RRRAA AMAA AA AMAA RRR RRR oe 
~“ 


FONVASRSNRENARNAWVOR RUSS 





ADD #4 SP 
COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 


sRELEASE THE DRIVE FROM PORT B 


MOVB PORTB,aRPCS2 3 SELECT TB 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,aRPCS1 ISSUE RELEASE THROUGH PORT B 

START THE TIMER 

CLR TIME sCLEAR THE yee — COUNTER 

MOV #40. ,WATCH 7SET WATCH TO 40. M 

eH WATCH 


VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR = RELERR :CLEAR THE *RELEASE ERROR * INDICATOR 
MOV —-RPDS,BADADR =: FORM THE ADDRESS OF RPDS FOR TYPEOUT 
MOV AMOL{PGHDPRIDRYIVV EXPTED | :COMPARISON CONSTANT 
MOVB PORTA, aRPCS2 SELECT PORT 
MOV Al T THE DRIVE. STATUS REGISTER FROM PORT A. 
BIC SPIPTORL ‘OM! ILV, TMP CLEAR DONT CARES 
Moy = TMP2, THPO sCOPY IT’ INT 

#ATA CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVE PORTB. Vahecse :SELECT 
MOV ; TMP T THE "ORIVE “STATUS REGISTER FROM PORT B. 
BIC PP YURL YOM! ILV. THR TMP 5, AR, DONT CARES 


MOV F vit’ INTO 
BIC MATA! VV, TMP1 SCLEAR PORT DEPE NDENT BITS FROM THE COPY 


CAP THEO, THPI 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 78$ ‘BR IF NOT 

TRAP  CSERHRD 

.WORD 6 

“WORD EM46 

“WORD ERR15 

MOV #FRMT17,-(SP) 

MOV #1,-(SP5 

MOV SP,RO 

TRAP  CS$PNTB 

ADD 44, 

JMP 80$ :BYPASS THE REST OF THE CHECK 

MOV TMP2 ,BADDAT SSET UP POSSIBLE BAD DATA FOR SeRROR MESSAGE 

MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORT. aRPCS2 *SELECT POR 

TST MPO 'SEE IF STATUS EQ 0 FROM PORT A. 

BEQ Ws *BR IF ZERO 

MOV PORTA, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV TMP3,BADDAT ‘BAD DATA’ FOR ERROR TYPE OUT 

MOVB PORTA,@RPCS2 SELECT POR 

TST Pi [SEE IF STATUS EQ ZERO FROM PORT B. 

BNE ras :BR IF NOT 
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AND CLEAR TEST 
177777 2302 
000011 136340 
000013 13653 


778: 





CSERHRD 
EM26 
ERRO 
#FRMT17 
#1,-(SP5 
SP-R 
CSPNTB 
#4,SP 
TMP2 ,BADDAT 


A, PTNBR 
#ATA, BADDAT 
EXPTED,BADDAT 


seus 


-(SP) 


#4,S 
TMP3,BADDAT 
PORTB, PTNBR 


#ATA, BADDAT 
EXPTED ,BADDAT 
CSERHRD 
12 

EM7 
ERRS 
#FRMT1S 
#1,-(SP5 
SP‘RO 


CSPNTB 
#4,SP 


-(SP) 


CSETST 


sSET “RELEASE ERROR® INDICATOR 
sCLEAR THE DRIVE 
sRELEASE THE DRIVE 


sLOOK FOR BIT FAILURES WHEN RPDS READ 
CHANGE PORT NUMBER 

sDAN'T CHECK THE ATTN BIT 

sALL BIT ? 

BR IF OK FROM PORT A. 


sCHECK RPDS FOR BIT FAILURES ~ FROM PORT B. 
CHANGE PORT NUMBER 

sDON'T CHECK THE ATTN BIT 

SEE _IF READ OK FROM PORT 8. 

;BR IF OK 


SEQ 0121 


— l 
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NAO RPO 
14 SEIZE BY RPAS TEST 
1 -SBTTL TEST 14 SEIZE BY RPAS TEST 
:eTEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
: 3* ~_ SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
3* 
6 ;* 
7 3* A. WRITE THE APPROPRIATE DRIVE BITS INTO RPAS; VERIFY THAT THE DRIVE 
g ~ IS SEIZED. 
10 i* B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
11 3* DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
\¢ 3* OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
se 
14 
138 044036 T14:: 
142 044036 005737 002340 TST DRVBAD sSYSTEM Ok? 
044042 001402 BEQ 64$ + TAKE BRANCH IF SO 
044044 104432 TRAP CSEXIT 
044046 002662 -WORD 1L10054-. 
044050 64S: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
044050 113777 002246 136324 MOVB PORTA, @RPCS2 sSELECT PORT #A 
044056 005077 136322 CLR aRPDS ‘SEIZE THE DRIVE 
4062 012777 000011 136302 MOV #11,aRPCS1 s ISSUE DRIVE CLEAR 
044070 012777 000013 136274 MOV #13. aRPCS1 sRELEASE THE DRIVE 
sSTART THE TIMER 
044076 005037 002304 CLR TIME ;CLEAR THE ELAPSED Line COUNTER 
044102 012737 000050 002306 MOV #40. ,WATCH SET WATCH TO 40. M 
044110 005737 002306 65$: TST WATCH 
044114 001375 BNE 65$ 
044116 113777 002250 136256 MOVB PORTB,@RPCS2 sSELECT PORT #6 
044124 005077 136254 CLR @RPDS SEIZE THE DRIVE emai PORT °B’ 
044130 012777 000011 136234 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
044136 012777 000013 136226 MOV #13, aRPCS1 SRELEASE THE DRIVE 
sSTART THE TIMER 
044144 005037 002304 CLR TIME sCLEAR THE ELAPSED ata COUNTER 
044150 012737 000050 002306 MOV #40. ,WATCH ‘SET WATCH TO 40. M 
044156 005737 002306 66$: TST WATCH 
044162 001375 BNE 


FERRARA AAAAEAEAEAATEEEEAAEAAEEAAERAREREREREEEAEEEEAEAEREEAAEEEAERAEEEAAEEEEE EEE 


SELECT DRIVE OTHER THAN THAT BEING TESTED 


O66 166 113777 002252 136210 MOVB PORTC,a@RPCS2 SELECT DRIVE NOT aeins TESTED 
4172 013737 002246 002270 MOV PORTA, SEIZPT :"SEIZED® PORT ADDRESS 
PETIT III IIIT titi it itit tit iii titi iiitiiiiiiitiiititiiiitiiii tit 
SURITE THE DRIVE'S ATTENTION BIT 
044200 013777 002260 136202 MOV ASR1,@RPAS sWRITE THE pal rent ian BITS OF THE DRIVE BEING TESTED 
044206 113777 002246 136166 MOVB PORTA, aRPCS2 sSELECT 
044214 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS” TO LOCATION FOR TYPEQUT 
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EST 14 SEIZE BY RPAS TEST 


FARA AAAAAAAAAAAAAAAEEA ASEH AEAEAAAAAAAAAAEAAAEAATHEREAERAEAEEEREREEREAEEAEEREE 


| VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 
ork 2 005777 136156 i @RPDS care yes a. THROUGH PORT A ? 


4 
EM10 


ERR3 
#FRMT17,=(SP) 
#1,-(SP5 


044226 001027 E 1$ YES 
044 113777 002250 136144 MOVB PORTB, aRPCS2 :SELECT PORT B | 
044 013737 002250 002266 MOV PORTB.PTNBR ; MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
044244 005777 136134 TST @RPDS SEE REGISTER THROUGH PORT B ? 
044250 001047 BNE 2$ tBR IF YES 
044252 104456 TRAP CSERHRD 
044254 0000 «WORD 23 
044256 0104 ;WORD EM42 
044260 “WORD 
044262 012746 003716 MOV #FRMT17,-(SP) | 
4266 012746 000001 MOV #1,-(SP5 
044272 010600 MOV 7 
044274 104414 TRAP  C$PNTB | 
044876 062706 000004 ADD #4,SP 
044.302 000137 046730 - JMP 4$ :BYPASS REST OF TEST 
044306 113777 002250 136066 MOVE PORTB.aRPCS2 :SELECT PORT B | 
044314 013737 002250 002266 MOV RTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044322 005777 136056 TST BRPDS ZREGISTER SHOULD BE ZERO THROUGH PORT B | 
044326 001002 BNE +6 tBR IF STATUS REG IS NOT Z 
044330 000137 045544 JMP 3 SSTATUS REG IS ZERO 
044334 104456 TRAP CSERHRD 
044336 «WORD 24 
044340 010524 <WORD EM43 
04434 “WORD 
044344 012746 003522 MOV #FRMT15,=(SP) 
044350 012746 000001 MOV #1,-(SP5 
044354 010600 MOV SP.RO 
044356 104414 TRAP C$PNTB 
044360 062706 000004 ADD #4,SP 
044364 000137 046730 JMP 4$ :BYPASS REST OF TEST 
FRAAAAEAAEAAEEEEEAEEEEESEEEEEEEEEEAEEAEEEREREEEEEEEEEAEERAEEEEREREREEAEEEREREEEEEE 
:PORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 
044370 2$: 
044370 005037 002276 CLR CKERR LEAR THE * CHECK ERROR® INDICATOR 
044374 017737 136004 002332 MOV @RPDS ,BADDAT cit” CONTENTS OF RPDS 
044402 013737 002404 002334 MOV RPDS BADADR : FORM ORM REGISTER ADDRESS OF ERROR MESSAGE 
044410 012737 011700 002336 MOV #MoL ! POM: DPRIDRY! Wy Exe TED zWHAT REGISTER SHOULD BE 
044416 013737 002332 002342 MOV BADDAT, THPO REGISTER coNTENTS TO *TMPO* 
044424 042737 10607 002342 BIC Bet TOO. TMPO dave SPECIFIED BITS 
4432 023737 002336 002346 CMP —s- EXP TED, TAPO ;COMPARE THE BIT 
4440 001427 BEQ 67$ ; OK 
044442 013737 002332 002352 MOV BADDAT, THP4 [COPY "BAD DATA® 
04445 042737 071700 00235 BIC #71700.T [CLEAR THE MASKED BITS 
4456 053737 002352 002336 BIS TAPS eiPTED :"OR® WITH GOOD DATA FOR TYPEOUT | 
‘ 





Se 


— a 
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TEST 14 SEIZE BY RPAS TEST 


044504 010600 MOV SP,RO 
044506 104414 TRAP  CSPNTB 
044510 062706 000004 ADD #4,SP 
044514 005137 002276 -_ COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
044520 013737 002250 002270 “mov PORTB,SEI1ZPT ADDRESS FOR ERROR MESSAGE 
044526 013737 002246 00227 MOV PORTA, OPPRT :SAME AS ABOVE 
ZRELEASE THE DRIVE FROM PORT B 
4534 113777 002250 135640 MOVB = PORTB, aRPCS2 :SELECT PORT B 
044542 013737 002250 002266 MOV PORTS,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044550 012777 000013 135614 MOV #13, aRPCS1 rISSUE RELEASE THROUGH PORT B 
ZSTART THE TIMER 
044556 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
044562 012737 000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. M 
044570 005737 002306 69$: TST WATCH 
044574 001375 BNE 69$ 


sVERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


044576 005037 002302 CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
044602 012737 111700 002336 MOV PATA ‘MOL !PGM!DPRIDRY? VV, EXPTED ;COMPARISON CONSTANT 
4610 013737 002404 002334 MOV RPDS,BADADR  ;REGISTER ADDRESS 
044616 113777 00 34 135556 MOVE =~ PORTA, 2 sSELECT PORT A 
044624 013737 00 46 002266 MOV RTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044632 017737 135546 002342 @RPDS,T sREAD STATUS REGISTER FROM 
4640 042737 000004 002342 BIC #ILV, TMPO CL T CAR 
044646 113777 002250 135526 MOVB PORTB, aRPCS2 SELECT PORT B 
044654 013737 992250 002266 MOV PORTB,.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4662 017737 135516 002332 MOV @RPDS-BADDAT sDRIVE STATUS FROM PORT 8 
044670 042737 000004 002332 BIC #ILV,BADDAT :CLEAR DON'T CARE BIT 
4676 001417 BEQ 70$ *BR IF atua'te FROM PORT B ZERO 
044700 005737 002342 TST TMPO :I1S STATUS FROM PORT A ZERO ? 
044704 001414 BEQ 70$ :BR IF ZERO 
4706 1osese TRAP CSERHRD 
044710 00001 .WORD 13 
044712 010601 ;WORD M44 
044714 040000 “WORD ERR 
04471 012746 003522 MOV #FRMT15,-(SP) 
044722 012746 000001 MOV #1,-(SP5 
044726 010600 MOV SP-RO 
044730 104414 TRAP espns 
044732 5474 ADD SP 
044736 013737 002342 002332 70$: MOV THO. wie sCHECK STATUS FROM PORT 
044744 013737 oosese 005898 MOV PORT + CHANGE PORT Mest FOR TYPEOUT 
044752 023737 002336 002 CMP orTe. BABDAT :COMPARE WITH CONSTAN 
044760 001414 BEQ [BR IF OK 
044762 104456 TRAP CSERHRD 
044764 00001 .WORD 15 
044766 007400 ;WORD £27 
044770 013000 “WORD ERRS 
044772 012746 003522 MOV #FRMT15,-(SP) 
044776 012746 000001 MOV #1,-(SP5 


— ae 
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4 SEIZE BY RPAS TEST 
045002 010600 MOV SP,RO 
045004 104414 TRAP  CSPNTB 
045 062706 000004 ADD #4,SP 
04501 71$: 
ZRELEASE THE DRIVE FROM PORT A 
045012 113777 002246 135362 MOVB = PORTA, aRPCS2 :SELECT PORT 
045020 013737 002 48 2266 MOV PORTA. PTNBR :MOVE’ PORT ADDRESS” TO LOCATION = TYPEOUT 
045026 012777 13 135336 MOV #13,aRPCS1 zISSUE RELEASE THROUGH PORT 
:START THE TIMER 
045034 005037 002304 CLR TIME ZCLEAR THE ELAPSED, TIME COUNTER 
045040 012737 000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. ™ 
045046 005737 002306 72$: TST WATCH 
045052 001375 BNE 72$ 
sVERIFY THAT THE DRIVE IS IN NEUTRAL 
045054 005037 002302 CLR RELERR CLEAR THE "RELEASE ERROR * INDICATOR 
045060 013737 002404 002334 MOV oun thant DR Sonn M THE ADDRESS OF RPDS FOR TYPEOUT 
045066 012737 011700 002336 MOV #MOL! BADADR. ifr Ad COMPARISON CONSTANT 
045074 113777 002246 135300 MOVB PORTA,aRPCS2. SELECT PORT A. 
045102 017737 135276 002346 MOV DS, TMP2 GET THE DRIVE STATUS REGISTER FROM PORT A. 
045110 04 37 924005 002346 BIC tare, tmeoo sine 7 CLE DONT CARES 
045124 Hy ete 9083 $053¢5 BIC #aT Tatu [CLEAR PORT DEPENDENT BITS FROM THE COPY 
0451 777 002250 135242 : PORTB, Sap (eo ‘SELECT PORT 
045140 017737 135240 902350 MOV MP iGET THE DRIVE STATUS REGISTER FROM PORT B. 
045146 e737 024005 002350 BIC #PIP!URL ‘OM! ILV, TMP ZCLEAR DONT CARES 
045154 013737 002350 002344 MOV TMPS, THP1 sc Sy ae *TMP1° 
045162 042737 100100 002344 BIC WATA'VV,TMP1T =: CLEAR DEPENDENT BITS FROM THE COPY 
goatee Rees? 002342 002344 bore TPO, TMP! eIS THE PoTATuS REGISTER THE SAME FROM BOTH PORTS ? 
045200 005737 002342 TST TMPO tREGISTERS ARE THE SAME: ARE THEY ZERO ? 
045204 001073 BNE 75$ [BR IF NOT 
045206 104456 TRAP CSERHRD 
045210 WOR 
O45et2 010751 WORD 
045214 013534 ; WORD 
062538 oisre6 003716 MOV #FRMT17,-(SP) 
045222 012746 MOV 41,-(SP5 
045226 010600 MOV S 
045230 104414 TRAP  CS$PNTB 
045232 062706 000004 ADD #4,SP 
045236 000137 045540 JMP 77 zBYPASS THE REST OF THE CHECKS 
045242 013737 002346 002332 73$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
045250 013737 002250 002266 MOV PORTB,PT SEIZING POR RT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
045256 113777 002250 135116 MOVB PORTB.a@RPCS2 :SELECT PORT 
045264 005737 002342 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
045270 001414 BEQ 4 ‘BR IF ZERO 
045272 013737 002246 002266 MOV PORTA, PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
045 013737 002350 0023 MOV TMP3,BADDAT :*BAD DATA’ FOR ERROR TYPE OUT 
045306 113777 002246 135066 MOVB porTA, @RPCS2 SELECT PORT 
045314 005737 002344 TST TMP1 3SEE IF STATUS EQ ZERO FROM PORT 8B. 


—_ 
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| 14 SEIZE BY RPAS TEST 
0455 001025 BNE 75$ 3BR IF NOT 
045 012737 177777 992302 764$: MOV #-1,RELERR SSET "RELEASE ERROR’ INDICATOR 
045 012777 000011 135034 MOV #11. aRPCS1 [CLEAR THE DRIVE 

045336 012777 000013 135026 MOV #13, aRPCS1 SRELEASE THE DRIVE 
045 104456 TRAP  CSERHRD 
045346 000011 .WORD 9 
045350 007313 -WORD EM26 
045352 013214 “WORD ERR9 
045354 O12 46 003716 MOV #FRMT17,<(SP) 
045360 012746 000001 MOV #1,-(SP5 
045364 010600 MO SP, 
045366 104414 TRAP  C$PNTB 
045370 06 706 000004 ADD #4,SP 
045374 013737 002346 002332 75$: MOV TMP2 ,BADDAT zLOOK FOR BIT FAILURES WHEN RPDS READ 
045402 013737 002246 002266 MOV PORTA, PTNBR : CHANGE 
045410 042737 100000 002332 BIC #ATA,BADDAT :DON'T CHECK THE ATTN BIT 
045416 023737 002336 002332 CMP EXPTED,BADDAT ALL BITS Ok ? 
045424 001414 BEQ 76$ ‘BR IF OK FROM PORT A. 
045426 104456 TRAP CSERHRD 
045430 00001 .WORD 11 
045432 006072 ;WORD EM? 
045434 013000 “WORD ERRS 
045436 012746 003471 MOV #FRMT14,-(SP) 
045442 012746 000001 MOV #1,-(SP) 
045446 010600 MOV Pp. 
045450 104414 TRAP  C$PNTB 
erks4 poe7gs £00986 332 76$ nov Tabs. BADDAT CHECK RPDS FOR BIT FAILURES = FROM PORT B 
045464 013737 002250 Nigaae MOV PORTB,PT : 
045472 042737 100000 002332 BIC #ATA,BADDAT [DON'T CHECK THE ATTN BIT 
045500 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 
045506 001414 BEQ 77$ :BR IF OK 
045510 104456 TRAP CSERHRD 
045512 000014 .WORD 12 
045514 006072 “WORD M7 
045516 013000 <WORD ERRS 
045520 012746 003522 MOV #FRMAT15,-(SP) 
045524 012746 000001 MOV #1,-(SP5 
045530 010600 MOV P’RO 
045532 104414 TRAP  CSPNTB 
045534 062706 000004 ADD #4,SP 
045540 77$: 
045540 000137 046730 JMP 4$ 

2 RASA AAAAAAAEAAAAEAAAAEEATAEEEAEAAAEAARARARAAARAERAREREAAAEREREAAEEAREEEEEEEEERERE 
[THE DRIVE IS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 

045544 3$: 
045544 113777 002246 134630 MOVB _—s PORTA, aRPCS2 :SELECT PORT A 
045552 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045560 005037 002276 CLR CKERR >CLEAR THE "CHECK ERROR’ INDICATOR 
045564 017737 134614 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
045572 013737 002404 002334 MOV RPDS -BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
045600 012737 011700 002336 MOV #MOL 'PGM' DPR! ORY! VV, EXPTED >::WHAT REGISTER SHOULD BE 
045606 013737 002332 0234 BADDAT, 7MPO :MOVE REGISTER CONTENTS TO ‘TMPO® 
045614 042737 106077 00234 BIC #°C71700,TMPO ;SAVE SPECIFIED BITS 
045622 023737 002336 00234 CMP EXPTED, TMPO ZCOMPARE THE BITS 


—————-----—___——. — 
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CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 40-8 SEQ 0127 
TEST 14 SEIZE BY RPAS TEST 

045630 001427 BEQ 78$ :BR IF OK 
Oas639 013737 002332 002 52 MOV BADDAT, TMP :COPY "BAD DATA’ 
045640 042737 071700 00235 BIC #71700, THP4 SCLEAR THE MASKED BITS 
045646 053737 002352 002336 BIS TMP4 ,EXPTED :*OR’ WITH GOOD DATA FOR TYPEOUT 
045654 104456 TRAP  CSERHRD 
P2628 weer WORD EM1 
Daseee Orsese “WORD ERR 
045664 012746 003716 MOV #FRMT17,<(SP) 
045670 012746 000001 MOV #1,-(SP5 
045674 010600 V SP-R 
045676 104414 TRAP C$PNTB 
045700 062706 000004 ADD #4,SP 
045704 005137 002276 ae COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 
045710 013737 002246 002270 MOV PORTA,SELZPT | ;ADDRESS FOR ERROR MESSAGE 
045716 013737 002250 002272 MOV PORTB, OPPRT [SAME AS ABOVE 

:RELEASE THE DRIVE FROM PORT A 
045724 113777 002246 134450 MOVB _— PORTA, aRPCS2 :SELECT PORT A 
045732 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045740 012777 000013 134424 MOV #13,aRPCS1 zISSUE RELEASE THROUGH PORT A 

ZSTART THE TIMER 
045746 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
045752 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. MS 
045760 005737 002306 80$: TST WATCH 
045764 001375 BNE 

ZVERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

5766 005037 002302 CLR RELERR sCLEAR "RELEASE ERROR INDICATOR 
045772 012737 111700 002336 MOV #ATA!MOL!PGM!DPR'DRY!VV,EXPTED ;COMPARISON CONSTANT 
046000 013737 002404 002334 MOV RPDS,BADADR  ;REGISTER ADDRESS 
046006 113777 002250 134366 MOVB = PORTB, aRPCS2 SEL 8 
046014 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
046022 017737 134356 002342 MOV @RPDS, TMPO :READ STATUS REGISTER FROM PORT B 
6030 042737 000004 002342 BIC #ILV, TMPO [CLEAR DON'T CARE BIT 

046036 113777 002246 134336 MOVB = PORTA, aRPCS2 SSELECT PORT A 
046044 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
046052 017737 134326 002332 MOV @RPDS.BADDAT ‘:DRIVE STATUS FROM PORT A 
046060 042737 000004 002332 BIC #ILV,BADDAT sCLEAR DON'T CARE BIT 
046066 001417 BEQ 81$ ‘BR IF STATUS FROM PORT A ZERO 
046070 005737 002342 TST TMPO [1S STATUS FROM PORT 8 ZERO ? 
046074 001414 BEQ 81$ [BR IF ZERO 
046076 104456 TRAP  CSERHRO 
046100 00001 .WORD 13 
046102 010601 SWORD EM44 
046104 013472 “WORD ERR14 
046106 012746 003522 MOV #FRMT15,-(SP) 
046112 012746 000001 MOV #1,-(SP5 
046116 010600 MOV : 
046120 104414 TRAP  C$PNTB 
046122 062706 000004 ADD #4,5P 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 40-6 SEQ 0128 
TEST 14 SEIZE BY RPAS TEST 


046126 013737 002342 002332 81$: MoV TMPO,BADDAT ;CHECK STATUS FROM PORT B 
046 002250 002266 MOV PORTB,PTNBR [CHANGE PORT ADDRESS FOR TYPEOUT 
002336 EXPTED ,BADDAT 


7 CMP : COMPARE | WITH CONSTAN 
046150 001414 BEQ Os 7BR IF OK 
046152 104456 TRAP CSERHRD 
046154 00001 .WORD 15 
046156 007400 ;WORD €M27 
046160 013000 ;WORD ERRS 
046162 012746 003522 MOV #FRMT15,-(SP) 
046166 012746 000001 MOV #1,-(SP5 
046172 010600 MOV Pp 
046174 104414 TRAP  CS$PNTB 
046176 062706 000004 ADD #4,SP 
046202 82$: 
ZRELEASE THE DRIVE FROM PORT B 
046202 113777 002250 134172 MOVB = PORTB, aRPCS2 :SELECT PORT 8 
046210 013737 002250 002266 MOV PORTB,PTNBR :MOVE” PORT ADDRESS TO eae FOR TYPEOUT 
046216 012777 000013 134146 MOV #13,aRPCS1 ZISSUE RELEASE THROUGH PORT B 
:START THE TIMER | 
046224 005037 002304 CLR TIME sCLEAR THE ELAPSED _— COUNTER 
6230 012737 000050 002306 MOV #40. ,WATCH SET WATCH TO 40. M 
046236 005737 002306 83$: TST WATCH 
046242 001375 BNE 
ZVERIFY THAT THE DRIVE IS IN NEUTRAL 
046244 005037 002302 CLR RELERR CL LEAR THE "RELEASE ERROR * INDICATOR 
046250 013737 002404 002334 MOV RPDS BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
046256 012737 011700 002336 MOV #MOL ! PGM'DPR!DRYIW, EXPTED ;COMPARISON CONSTANT 
6264 113777 002246 134110 MOVB PORTA, @RPCS2 3SECECT PORT A. 
046272 017737 134106 002346 MOV PDS. TMP GET THE DRIVE STATUS REGISTER FROM PORT A. 
046300 042737 024005 002346 BIC #PIP!URL'OM!ILV, inp :CLEAR DONT CARES | 
6306 013737 002346 002342 MOV TMP2, THP :¢ Sy IT 
046314 042737 100100 002342 BIC WATA'VV,TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
046322 113777 002250 134052 MOVB PORTB,aRPCS2 :SELECT PORT B. 
6330 017737 134050 002350 MOV PDS. TMP iGET THE DRIVE STATUS REGISTER FROM PORT B. 
046336 042737 024005 002350 BIC #PIP'URL'OM!ILV, TMP DONT CARES 
344 013737 002350 002344 MOV TMP3 TMP OP vir’ ht O 'TMP1° | 
046352 042737 100100 002344 BIC WATA'VV,TMP1 = :CLEAR PORT DEPEN DENT BITS FROM THE COPY | 
023737 002342 002344 CMP TMPO, TMP1 t1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
046366 001021 BNE 84$ :BR IF NOT 
046370 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
046374 001073 BNE 86$ [BR IF NOT 
046376 104456 TRAP  CSERHRD 
046400 000006 .WORD 6 
046402 010751 “WORD 
046404 013534 “WORD ERR15S 
046406 012746 003716 MOV #FRMT17,-(SP) 
046412 012746 000001 MOV #1,-(SP5 
046416 010600 MOV SP’RO 
046420 104414 TRAP  (C$PNTB 
046422 062706 000004 ADD #4,SP 
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CZRINAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 40-7 SEQ 0129 | 
TEST 14 SEIZE BY RPAS TEST ? 
0464 6730 JMP 88$ sBYPASS THE REST OF THE CHECKS 
0464 002346 2332 84$: MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
04644 ¢2 MOV RTB,PT sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046446 009 50 133726 MOVB PORTB.aRPCS2 :SELECT PORT B. 
046454 ee 00 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 
046460 0014174 BEQ 85$ <BR IF ZERO 
046462 013737 002246 00 266 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046470 013737 002350 00 332 MOV TMP3,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
046476 113777 002246 MOVB PORTA,aRPCS2 SELECT PORT A. 
046504 005737 002344 TST TMP1 [SEE IF STATUS EQ ZERO FROM PORT B. 
046510 001025 BNE 86$ :BR IF NOT 
046512 012737 177777 002302 85$: MOV #1, RELERR [SET 'R RELEASE ERROR’ INDICATOR 
046520 012777 000011 133644 MOV #11.aRPCS1 [CLEAR THE DRIVE 
046526 012777 000013 133636 MOV #13,aRPCS1 SRELEASE THE DRIVE 
046534 104456 TRAP  CSERHRD 
046536 000011 WORD 
046540 007313 <WORD EM26 
046542 013214 <WORD ERRO 
046544 012746 003716 MOV #FRMT17,-(SP) 
046550 012746 000001 MOV #1,-(SP5 
046554 010600 MOV s 
046556 104414 TRAP  C$PNTB 
046560 706 000004 ADD #4,SP 
046564 013737 002346 002332 86$: MOV TMP2 ,BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
046572 013737 002246 002266 MOV PORTA, PTNBR ‘CHANGE PORT NUMBER 
046600 042737 100000 002332 BIC MATA, BADDAT [DON'T CHECK THE ATTN BIT 
046606 023737 002336 002332 CMP EXPTED,BADDAT ALL BITS OK ? 
046614 001414 BEQ 87$ [BR IF OK FROM PORT A. 
046616 104456 TRAP  CSERHRD 
046620 00001 «WORD 11 
046622 006072 <WORD M7 
046624 013000 -WORD ERRS 
046626 012746 003471 MOV #FRMT14,-(SP) 
046632 012746 000001 MOV #1,-(SP5 
046636 010600 MOV 5 
046640 104414 TRAP  C$PNTB 
heths poeres igen 002332 87$ mov THs BADDAT ZCHECK RPDS FOR BIT FAILURES = FROM PORT B 
046654 013737 002250 002266 MOV PORTB,PTNBR ? CHANG PORT NUMBER 
046662 042737 100000 002332 BIC #ATA, BADDAT [DON'T CHECK THE ATTN BIT 
046670 023737 002336 002332 CMP EXPTED,BADDAT SEE IF READ OK FROM PORT B. 
046676 001414 BEQ $ <BR IF OK 
046700 104456 TRAP CSERHRD 
046702 000014 .WORD 12 
046704 006072 ;WORD €M7 
046706 013000 “WORD ERRS 
046710 012746 003522 MOV #FRMT15,=(SP) 
046714 012746 000001 MOV #1,-(SP5 
046720 010600 MOV P’RO 
046722 104414 TRAP  C$PNTB 
046724 062706 000004 D #4,SP 
046730 88$: 
046730 4$: 
146 046730 L10054: 
046730 104401 TRAP  CSETST 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 41 
TEST 15 INHIBIT SEIZE BY RPAS TEST 


1 .SBTTL TEST 15 INHIBIT SEIZE BY RPAS TEST 
3 z*VERIFY, THAT THE DRIVE IS NOT SEIZED WHEN A "ZERO’ IS WRITTEN INTO 
4 is THE DRIVE'S ATTENTION BIT. 
6 t* A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
i :* BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
2 :* B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
11 ; 
53 046732 T15:: 
57 046732 005737 002340 TST DRVBAD sSYSTEM OK? 
046736 001402 BEQ 64$ STAKE BRANCH IF SO 
046740 104432 TRAP CSEXIT 
046742 000640 «WORD 110055-. 
046744 64$: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
046744 113777 002246 133430 MOVB PORTA,@RPCS2 =;SELECT PORT #A 
046752 005077 133426 CLR @RPDS- [SEIZE THE DRIVE 
046756 012777 000011 133406 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
046764 012777 000013 13340) MOV #13, aRPCS1 RELEASE THE DRIVE 
SSTART THE TIMER 
046772 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
046776 012737 000050 002306 MOV #40. WATCH [SET WATCH TO 40. MS 
7 005737 002306 65$: TST WATCH 
047010 001375 BNE 65$ 
047012 113777 002250 133362 MOVB PORTB,@RPCS2 —_; SELECT PORT #8 
047020 005077 133360 CLR a@RPDS SEIZE THE DRIVE THROUGH PORT B* 
047024 012777 000011 133340 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
7032 012777 000013 133332 MOV #13, aRPCS1 TRELEASE THE DRIVE 
SSTART THE TIMER 
047040 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
047044 012737 000050 002306 MOV #40. -UATCH ?SET WATCH TO 40. 
047052 005737 002306 66$: ‘TST 
047056 001375 BNE bes 
047 113777 002252 133314 MOVB  PORTC,aRPCS2  ;SELECT DRIVE NOT BEING TESTED 
FRR REEEREEEEEEEEREEEEEEERERERAAEEEEEREREREEEEEREREREEEEEEEEEREEEEEEEEE 
“RITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
047066 013737 002260 002342 MOV ASR1, TMPO ;STORE ATTN BIT FOR PORT A 
047074 005137 002342 COM TMPO >COMPLEMENT IT 
047100 013777 002342 133302 MOV TMPO, @RPAS [WRITE THE ATTN REGISTER 


FRR EEEAEEEEEEEEEEEEEREEEREREREREEREREEREREREREEEAEEEEEEEEEEEEEEEERREEEE 


‘VERIFY THAT DRIVE REMAINDED IN NEUTRAL 


VERIFY THAT THE DRIVE IS IN NEUTRAL 


SEQ 0130 | 
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RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 41 ah. SEQ ns | 
INHIBIT SEIZE BY RPAS TEST | 
947106 005037 002302 CLR RELERR ich EAR THE "RELEASE ERROR ° INDICATOR | 
04711 oi 737 002404 00 334 MOV RPDS BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
047120 0127 u 011700 99 3 MOV #MOL | POMYDPRIDRYIVY EXPTED ;COMPARISON CONSTANT 
047126 113777 2 O0ee 133246 MOVB PORTA, aRPCS2 SELECT PORT A. 
047134 017737 133244 002346 MOV DS, TMP2 T THE DRIVE STATUS REGISTER FROM PORT A. 
047142 O4e? 7 024005 902 4 BIC #PIP!URL 1OM!ILV, in MP2 rat DONT CARES | 
047150 013737 002346 00234 TMP2,, TAP Y IT’ INTO ' 
047156 9427 7 100100 é BIC #ATA‘VV, TMPO 1 EO EAR PORT SE PENDENT BITS FROM THE COPY 
047164 113777 99 250 1 Hi MOVB = PORTB, aRPCS2 SELECT PORT 6. 
047172 017737 133206 002350 MOV @RPDS, TMP T THE DRIVE STATUS REGISTER FROM PORT B. 
047200 O49? 7 92400 902330 BIC #PIP!URLIOM!ILV, {MP3 3CLEAR DONT CARES | 
047206 013737 002350 002344 MOV TMP3, TMP1 :COPY IT INTO *TMP1 
047214 0427 7 1001 002344 BIC WATA‘VV, TMP1 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
047 ¢2 023737 002342 002344 CMP TMPO, TMP1 t1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
047230 001021 BNE 67$ <BR IF NOT | 
047232 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
047236 001077 BNE 69$ 7BR IF NOT | 
Sirs atnae Wom te ! 
047244 910731 WORD 
047246 013534 -WORD ERR15 
047250 012746 003716 MOV #ERMT17,=(SP) 
sires Biseas 0 my ag | 
047262 104414 TRAP  ‘C$PNTB 
047264 062706 000004 ADD #4,SP 
047270 137 047602 JMP 71$ ZBYPASS THE REST OF THE CHECKS 
047274 oi 737 002 4 00 332 67$: MOV TMP2 ,BADDAT SSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE | 
047302 013737 50 002266 MOV PORTB,PTNBR * SEIZING PORT iF TEST SHOWS DRIVE NOT IN NEUTRAL 
047310 113777 002250 133064 MOVB PORTB,a@RPCS2 SSELECT PORT 
047316 005737 002342 TST TMPO SSEE IF STATUS EQ 0 FROM PORT A. 
047322 001414 BEQ 68$ :BR IF ZERO 
047324 013737 002246 002266 MOV PORTA, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
047332 013737 002350 002332 MOV TMP3, BADDAT :"BAD DATA® for ERROR TYPE OUT 
047340 113777 002246 133034 MOVB PORTA,aRPCS2 :SELECT PORT A. 
04754 905737 002344 Ist TH 1 SEE IF STATUS EQ ZERO FROM PORT B. | 
047354 012737 177777 992302 68$: MOV #-1,RELERR :SET SRELEASE ERROR" INDICATOR 
047362 012777 000011 133002 MOV #11.aRPCS1 [CLEAR T 
047370 912777 000013 132774 V #13. aRPCS1 sRELEASE Wee PORIVE | 
bep208 00000" “eet | 
047402 006763 “WORD EM21 | 
047404 013152 “WORD ERR8 
b47690 000070 mei 
Serie $3885 io om 
047416 012746 003716 MOV #FRMT17,=(SP) 
siriss Biseap 0 my, eat | 
027685 104414 TRAP  C$PNTB 
7432 062706 04 ADD #4, 5$P 
047436 0137 2346 002332 69$: MOV TMP2 ,BADDAT zLOOK FOR BIT FAILURES WHEN RPDS READ | 
pete baSe8y 00000 58 BIC WATASBADDAT. {BONY T CHECK THE ATTN BIT | 
Otto O39539 3 $53 CMP EXPTED,BADDAT ALL BITS OK | 
| 
| 
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CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 41-5 SEQ 0132 
TEST 15 INHIBIT SEIZE BY RPAS TEST 
047466 001414 BEQ 70$ sBR IF OK FROM PORT A. 
04747 104456 TRAP CSERHRD 
047472 00091 .WORD 11 
047474 072 ;WORD M7 
047476 013000 “WORD ERRS 
047500 01274, 003471 MOV #FRMT14,<(SP) 
047504 012746 000001 MOV #1,-(SP5 
047510 010600 MOV SP; RO 
047512 104414 TRAP  C$PNTB 
047514 062706 000004 ADD #4,SP 
047520 013737 002350 002332 70$: MOV TMP3 ,BADDAT ZCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
047526 013737 002250 002266 MOV PORTB,PTNBR ‘CHANGE PORT NUMBER 
047534 042737 100000 002332 BIC #ATA, BADDAT [DON'T CHECK THE ATTN BIT 
047542 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 
047550 001414 BEQ 71$ :BR IF OK 
047552 104456 TRAP  CSERHRD 
047554 000014 «WORD 12 
047556 006072 ;WORD M7 
047560 013000 “WORD ERRS 
047562 012746 003522 MOV #FRMT15,=(SP) 
047566 012746 000001 MOV #1,-(SP5 
047572 010600 MOV P. 
047574 104414 TRAP C$PNTB 
047576 062706 000004 ADD #4,SP 
047602 71$: 
61 047602 L10055: 
047602 104401 TRAP CSETST 


a a a a na am we a ee ee 


4 








pe en 
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‘oe 16 SET PORT "A’ REQUEST TEST 
1 .SBTTL TEST 16 SET PORT ‘A* REQUEST TEST 
| ¢ :4VERIFY THAT WRITING A DRIVE REGISTER srs "PORT REQUEST WHEN THE 
4 8 DRIVE IS SEIZED BY THE OTHER PORT 
i A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTO RPDS. 
8 i* B. WRITE O'S INTO RPDS FROM PORT ‘A’; VERIFY THAT THE DRIVE IS STILL 
3 z¢ SEIZED BY PORT 'B’. 
11 t* (C. ISSUE A RELEASE COMMAND EROM PORT 'B’ AND VERIFY THAT THE DRIVE 
12 i SWITCHED T A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
13 i* PORT 'A* AND Poe ‘or SET FOR PORT 'B'. 
15 :* D. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE 
16 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
3* 
18 
78 047604 T16:: 
82 047604 005737 002340 TST DRVBAD :SYSTEM 0K??? 
047610 001402 BEQ 64$ STAKE BRANCH IF SO 
047612 104432 TRAP — C$EXIT 
047614 001246 «WORD 110056-. 
047616 64$: 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
047616 113777 002246 132556 MOVB  PORTA,@RPCS2 SELECT PORT #A 
047624 005077 132554 CLR @RPDS :SEIZE THE DRIVE 
047630 012777 000011 132534 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
047636 012777 000013 132526 MOV #13.aRPCS1 TRELEASE THE DRIVE 
ZSTART THE TIMER 
047644 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
047650 012737 000050 002306 MOV #40. WATCH *SET WATCH TO 40. M 
047656 005737 002306 65$: TST WATCH 
047662 001375 BNE 6 
664 113777 002250 132510 MOVB  PORTB,aRPCS2 ;SELECT PORT #8 
047672 005077 132506 CLR @RPDS SEIZE THE DRIVE THROUGH PORT 'B' 
047676 012777 000011 132466 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
047704 012777 000013 132460 MOV #13. aRPCS1 TRELEASE THE DRIVE 
ZSTART THE TIMER 
047712 005037 002304 CLR TIME SCLEAR THE ELAPSED [Me COUNTER 
047716 012737 000050 002306 MOV #40. ,WATCH *SET WATCH TO 40. M 
047724 005737 002306 66$: TST WATCH 
047730 001375 


ETI eit ii iitt iii iiiiiiiiiiritiiitiiiiit 
:SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,aRPCS2 sSELECT PORT 


44e B 
270 MOV PORTB,SEIZPT :STORE se 1ziNs PORTS ADDRESS 
CLR @RPDS WRITE RPDS 
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TEST 16 SET PORT °A* REQUEST TEST 


OEE CEET PORT A ADDRESS 
MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


saucsuagntebeeintanalanetateligaahiasaaanasianteaaansaaeananaanenteaattet 


sSET PORT REQUEST FOR PORT A 


SREAERAAEEAEAAAAEAEEEEEEEEEEEEERAEAAAAAEAAAAEAARERAAARAAERAAEAEAAEEAEEEEEAEAEEE 


047752 013737 002246 002272 MOV PORTA, OPPRT 
047760 M3770 002246 132414 MOVE PORTA, aRPCS2 
7766 013737 002246 002266 *PTNBR 

SET PORT REQUEST 
047774 005077 132404 CLR aRPDS 
RELEASE THROUGH PORT B. 
050000 113777 002250 132374 MOVB = PORTB, aRPCS2 
50006 013737 002250 002266 MOV PORTB,.PTNBR 
050014 012777 000013 132350 MOV #13,aRPCS1 
ZSTART THE TIMER 
050022 005037 002304 CLR TIME 
050026 012737 000050 002306 MOV #40. ,WATCH 
50034 005737 002306 69$: TST WATCH 
050040 001375 BNE 
050042 113777 002250 132332 MOVB = PORTB, @RPCS2 
050050 013737 002250 002266 MOV PORTB,PTNBR 
050056 005037 002276 CLR CKERR 
05 017737 132316 002332 MOV @RPDS ,BADDAT 
030070 015757 002404 002334 MoV RPDS .BA DADR 
05010 903937 $33 002342 MOV BADDAT, TMPO 
050110 042737 077777 002342 BIC #°CATA, THPO 
050116 023737 002336 002342 CMP EXPTED, TMPO 
050124 001427 bEQ 
050126 013737 002332 002352 MOV BADDAT, TMP4 
050134 042737 100000 002352 BIC HATA, THP4 
050142 053737 002352 002336 BIS TMP4 .EXPTED 
050150 104456 TRAP CSERHRD 
050152 WORD 
050154 006551 ;WORD EM16 
050156 013000 “WORD RRS 
50160 012746 003716 MOV #FRMT17,-(SP) 
050164 012746 00000 MOV #1,-(SP5 
050170 010600 MOV Pp: 
050172 104414 TRAP  C$PNTB 
050174 062706 000004 ADD #4,SP 
050200 005137 002276 COM CKERR 
050504 113777 002266 132170 “°° move _porTA.arPcs2 
050212 013737 002246 002266 MOV PORTA, PTNBR 
P30556 BTrs? 4a5%54 002332 BOY SAPD, BADDAT 
502 et 002404 002334 MOV RPDS, BADADR 
05024 012737 100000 00233 MOV WATA,EXPTED 
050246 013737 002332 00234 MOV BADDAT, TMPO 
050254 2737 07 777 + 00234 BIC #°CATA.TMPO 
0262 23737 002336 00234 CMP XPTED, 7MPO 
050270 001427 BEQ 
050272 013737 002332 002352 MOV BADDAT, TMP4 





FORM R 


DRIVE SHOULD SWITCH TO PORT A. 


SELECT PORT B 
MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
ISSUE RELEASE THROUGH PORT ADDRESS 


CLEAR THE ELAPSED = COUNTER 
7SET WATCH TO 40. M 


sSELECT PORT B 
sMOVE™ EAA ADDRESS TO LOCATION FOR TYPEOUT 
R_THE oe ERROR’ INDICATOR 
ris CONTEN TS OF RPDS 
REGISTER ADDRESS, OF ERROR MESSAGE 
REGISTE 


R 

sMOVE REGISTER CONTENTS TO *TMPO' 
;SAVE SPECIFIED BITS 

+ COMPA RE THE BITS 


COPY "BAD DATA’ 
;CLEAR THE MASKED BITS 
2°OR* WITH GOOD DATA FOR TYPEOUT 


:SET THE REGISTER COMPARE ERROR INDICATOR 
:SELECT 
;MOVE” PORT ADDRESS. TO LOCATION FOR TYPEOUT 
THE "CHECK ERROR' INDICATOR 
:GET CONTENT 
ADDRESS OF ERROR MESSAGE 


f ORM REGIST 
cial LD BE 
REG R CONTENTS TO *TMPO® 


SAVE SPECI 
: COMPAR 


SCOPY * 


SEQ 0134 





05 
050350 


050350 
050356 
050364 


0505 
030870 
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TEST 16 SET PORT ‘A* REQUEST TEST 


tte Uf 


006551 


Vins 


SN NNO 
WIWWNIUNWWWW NIWA 
SSN NNN 


WNWNINWNWN NWN 


SSSRRLRL=ARSRL=LLS 
NN 
WU 
NNN 


pr tw Ps 
sono 
SWNT 
UN 


gsececees= 
RESuVwsse 
sz BSsSe 


CLEAR THE MASKED BITS 
:°OR* WITH GOOD DATA FOR TYPEOUT 


sSET THE REGISTER COMPARE ERROR INDICATOR 
PPOTITITITITITITITI ITT LITT ITILILLiLLi LiL LiL iT LLL LLL ELLE LE EEE EEE 
RELEASE THE DRIVE FROM PORT A 
MOVB PORTA, oes PORT 
Arh MOVE” * PORT ADDRESS. TO LOCATION FOR TYPEOUT 
ISSUE RELEASE THROUGH PORT A 
START THE TIMER 


CLEAR THE ELAPSED ata COUNTER 
SET WATCH TO 40. M 


THAT THE DRIVE IS IN NEUTRAL 
sCLEAR_ THE ‘RELEASE ERROR ° gp eda 
“i S_ FOR TYPE 


Rees 


THE _DRIVE “STATUS REGISTER FROM PORT A. 
DONT CARES 


CLEAR 1 bom oe emaeael BITS FROM THE COPY 
1 The "ORIVE STATUS REGISTER FROM PORT B. 
DONT CARES 


= 


@RPDS, TMP 
#PIP!URL OM! ILV, i 


2C PORT DEPENDENT BITS FROM THE COPY 
13 i STATUS REGISTER THE SAME FROM BOTH PORTS ? 


NO 
REGISTERS ARE THE SAME: ARE THEY ZERO ? 
;BR IF NOT 


Sssssussssuss 


& foo 











~ 
2 
=> 


T 
REQUEST TEST 


3 SS 
S 
7 


=SSS 
oo 
bal 
NEN 
~ 


Sooooooooo wz 
~“ 
~N 


oS [=] 
Sooo 
S SS 
RR SRR 
coed wend weed wach 3 2 ot eb 
SRNL PREpEENRR NER 
RRORRPRWoOOV WO 
Ss x 
ud ~ 
= 3 
Oo ~N 


nxn IN 


002332 
00226 
00233 


[=] 
nua— 
WWW 
NNN 
WWW 


SSSsN3 


0 002332 
0 002266 
002332 


Nm 
3 
Ww 
~“ 
Ww 
~N 


seenver 
g 
3 


SOooooooooooooooocoo 4 


MAMMA UI 


75$: 


76$: 


77$: 


78$: 


79$: 


1$: 
L10056: : 
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79$ 
TMP2 ,BADDAT 
PORTB,PTNBR 
PORTB,@RPCS2 
TMPO 
76$ 
PORTA,PTNBR 


TMP3,BADDAT 
PORTA, a@RPCS2 
TMP1 


77$ 

#1, RELERR 
#11, aRPCS1 
#13, aRPCS1 
CSERWRD 
EM26 
ERRO 
#FRMT17 
#1,-(SP5 
SP,RO 
CSPNTB 
#4,SP 
TMP2 ,BADDAT 
PORTA, PTNBR 
EXPTED BADDAT 
CSERHRD 

11 

EM7 
ERRS 
#FRMTIG 
#1,-(SP5 


-(SP) 


-(SP) 


BADDAT 
PORTB,PTNBR 
XPTED ,BADDAT 
CSERHRD 
12 
EM7 
ERRS 
#FRMTIS 
#1,-(SP) 
P’RO 
CSPNTB 
#4,SP 


-(SP) 


CSETST 


SEQ 0136 


ASS THE REST OF THE CHECKS 

UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
STATUS 0 0 FROM PORT A. 

PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
«BAD DATA’ FOR ERROR TYPE OUT 


PORT A. 
7SEE IF STATUS EQ ZERO FROM PORT B. 
TSET "RELEASE ERROR’ INDICATOR 


CLEAR THE DRIV 
RELEASE THE DRIVE 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
: E PORT NUMBER 

sSEE_ IF READ OK FROM PORT B. 

sBR IF OK 


WODNAUS AV OOONOUSWwh— 


Le ee ee eee 


Soooooooo 
MPAA 
a 
ate eee 
FEVEGKSR 
L28=8828 
NMIUVUWN—= UI 








131276 
131254 


131246 
002306 
131230 


131206 
131200 


002306 


131162 
002270 
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SET PORT ‘B’’ REQUEST TEST 


-SBTTL TEST 17 SET PORT ‘B’* REQUEST TEST 


sevERIFY THAT WRITING A DRIVE REGISTER SETS “PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


te 
3* A. SEIZE THE DRIVE THROUGH PORT ‘A‘* BY WRITING O0°S INTO RPDS. 
38 
7* B. WRITE 0O°S INTO yees FROM PORT °B‘'; VERIFY THAT THE DRIVE IS STILL 
‘* SEIZED BY PORT ° 
ie C. ISSUE A meLEASe COMMAND FROM PORT ‘A*® AND VERIFY THAT THE DRIVE 
hd SWITCHED TO PORT ‘BB’. VERIFY THAT Pas ATTENTION BIT IS SET FOR 
‘* PORT ‘*B‘ AND IS NOT SET FOR PORT 
ie D. ISSUE A RELEASE COMMAND THROUGH PORT ‘B* AND VERIFY THAT THE DRIVE 
= RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
T17:: 

TST DRVBAD sSYSTEM 0K??? 

BEQ 64$ 3TAKE BRANCH IF SO 

TRAP CSEXIT 

eWORD 110057-. 
64$: 

;CLEAR ATTENTION BITS FOR BOTH PORTS 

MOVB PORTA, @RPCS2 sSELECT PORT #A 

CLR @RPDS SEIZE THE DRIVE 

MOV #11,aRPCS1 Z ISSUE DRIVE CLEAR 

MOV #13, @RPCS1 [RELEASE THE DRIVE 

sSTART THE TIMER 

CLR TIME ;CLEAR THE wt ag 17s COUNTER 

MOV #40. ,WATCH SET WATCH TO 40. 
65$: TST WATCH 

BNE 6 

MOVB PORTB,a@RPCS2 SELECT T #6 

CLR @RPDS sSEIZE THe MORIVE peas PORT ‘B’ 

MOV #11,aRPCS1 + ISSUE DRIVE CLEAR 

MOV #13,aRPCS1 SRELEASE THE DRIVE 

sSTART THE TIMER 

CLR TIME sCLEAR THE ELAPSED TIME COUNTER 

MOV #40. ,WATCH :SET WATCH TO 40. MS 
66$: TST WATCH 


PETIT iiete iti iii iiritiiiiviiviiiitiiiitiy 
SEIZE THE DRIVE THROUGH PORT A 


MOVB PORTA,@RPCS2 ;SELECT PORT A 
MOV PORTA.SEILZPT ;STORE SEIZING PORT’S ADDRESS 
@RPDS sWRITE RPDS 
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fests eer PORT ° e" REQUEST TEST 





051232 013737 50 992272 MOV PORTB,OPPRT s “OPPOSITE” PORT ADDRESS 
051240 113777 50 131134 MOVE = PORTB,, anPcs2 7SELECT PORT B 
051246 013737 250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
seheeeeeeeeteneeneeseeedeeeeeaeeeaeaeeeeeeeaeeeeeneneeenereneeeeeeereeeeerere 
:SET PORT REQUEST 
051254 005077 131124 CLR @RPDS ZSET PORT REQUEST FOR PORT B 
RASA AASAAAAAAAASAAELATAAAAAAAAAEARARASEAAARARAAAAAAAAAAEAEAEREAAEARAAAARAAAEEEE 
?RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 

051260 113777 002246 131114 MOVB = PORTA, aRPCS2 :SELECT PORT 

51266 013737 002046 00226 MOV PORTA,PTNBR ;MOVE PORT ADDRESS" TO LOCATION FOR TYPEOUT 
051274 012777 000013 13107 MOV #13,aRPCS1 zISSUE RELEASE THROUGH PORT ADDRESS 

;START THE TIMER 

051302 005037 002304 CLR TIME sCLEAR THE ELAPSED TIME COUNTER 
051306 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 
051314 005737 002306 69$: TST WATCH 
051320 001375 BNE 69$ 
051322 113777 002246 131052 MOVB = PORTA, aRPCS2 ZSELECT PO 
051330 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
051336 005037 002276 CLR CKERR CLEAR THE | "CHECK ERROR’ INDICATOR 
051342 017737 131036 002332 MOV SRPDS -BADDAT :GET CONTENTS OF RPDS 
051350 013737 002404 002334 MOV RPDS ,BAD :FORM REGISTER ADDRESS OF ERROR MESSAGE 
091356 9030 7 3 CLR EXPTED ;WHAT REGISTE 

51 13737 00234 MOV BADDAT, TMPO [MOVE REGISTER CONTENTS TO "TMPO" 
051370 0427 ? 07777 00234 BIC #°CATA.TMPO :SAVE SPECIFIED BITS 
051376 0257 , 2336 00234 cM EXPTED. THPO COMPARE T HE 
051406 spree 002332 002352 MOV BADDAT, TMP4 ZCOPY "BAD DATA’ 
051414 042737 00235 BIC MATA, THPG CLEAR THE MASKED BITS 
051422 053737 002352 002336 BIS TMP4 .EXPTED :°OR® WITH GOOD DATA FOR TYPEOUT 
0514 104456 TRAP SERHRD 
051432 .WORD 
051434 006551 ;WORD M1 
051436 013000 “WORD ERR 
051440 012746 003716 MOV #FRMT17,-(SP) 
051444 012746 000001 MOV #1,-(SP5 
051450 010600 MOV P;RO 
051452 104414 TRAP  C$PNTB 
051454 062706 000004 ADD #4,SP 
051460 005137 002276 os COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
051464 113777 002250 130710 MOVB = PORTB, aRPCS2 :SELECT PORT B 
091472 013737 002250 002266 MOV PORTB,PTNBR sMOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
0515 5037 092276 CLR CKERR R THE "CHECK ERROR’ INDICATOR 
051504 017737 130674 002332 MOV @RPDS,BADDAT GET CONTE NTS OF RPDS 
051512 013737 002404 002334 MOV RPDS_BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
0515 12757 1 0023 MOV #ATA,EXPTED thi REGIS HOUL 
051526 013737 00 002 MOV BADDAT, TMPO sMOVE REGISTER CONTENTS TO "TMPO* 
0515 27 ? 07777 2 BIC #°CATA.TMPO SAVE SPECIFIED BITS 
091542 023737 002336 00234 CMP XPTED, 7MPO sCOMPARE THE BITS 
051550 001427 BEQ :BR IF OK 
051552 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
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| TEST 17 SET PORT "B’’ REQUEST TEST 
051560 737 1 002352 BIC WATA, THPG ;CLEAR THE MASKED BITS 
091566 Reg? 7 doosse $03 336 BIS TMP4 -EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
051574 1044 TRAP SERHRD 
051576 .WORD 
951600 006551 ;WORD M1 
051602 013000 .WORD ERR 
051604 12746 003716 MOV #FRMT17, (SP) 
051610 012746 000001 MOV #1,-(SP) 
051614 010600 MOV SP’RO 
051616 104414 TRAP  CSPNTB 
091620 0627 900004 ADD #4,SP 
051626 005137 002276 COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 


FF TRAE AAAAAEAEREEESEAEAAEEHEAAAAAEAAEAAERAAEEERARAEREAEREAEEAEAERERAEREEEEEEE 


sRELEASE THE DRIVE FROM PORT B 


051630 113777 002250 130544 MOVB = PORTB, aRPCS2 :SELECT PORT B 
051636 013737 002250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
051644 012777 000013 130520 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT B 
;START THE TIMER 
051652 005037 002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
051656 012737 000050 002306 MOV #40. ,WATCH zSET WATCH TO 40. MS 
051664 005737 002306 74$: ST WATCH 
051670 001375 BNE 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 

051672 005037 002302 CLR RELERR cl EAR THE "RELEASE ERROR ° INDICATOR 
051676 013737 002404 002334 MOV RPDS BADAD FORM THE ADDRESS OF RPDS FOR TYPEOUT 
051704 Ogre 011700 ees MOV #MOL! BONTDPRIDRYIVY. eee ;COMPARISON CONSTANT 
051712 113777 002246 13046 MOVB PORTA,@RPCS2. =: SELECT PORTA. 
051720 017737 130460 002346 MOV PDS. TMP iGET THE DRIVE STATUS REGISTER FROM PORT A. 
01726 042737 024005 00254 BIC #PIP!URL tOM! ILV, TMP. CLE (DONT CARES 
051734 013737 002346 00234 MOV P2, TMP eopY IT INT y 
051742 042737 100100 00234 BIC WATA'VV,TMPO CLEAR PORT SE PENDENT BITS FROM THE COPY 
051750 113777 002250 130424 MOVB = PORTB, aRP :SELECT PORT 8. 
051756 017737 130422 002350 MOV @RPDS. TMPS iGET THE DRIVE STATUS REGISTER FROM PORT B. 
051764 042737 024005 002350 BIC #PIP!URL!OM!ILV, THP3 CL DONT CARES 
051772 013737 002350 002344 MOV TMP, THPi Y IT INT y 
052000 042737 100100 002344 BIC #ATALVV, TMPI f? PEAR PORT DEPENDENT BITS FROM THE COPY 
052006 023737 002342 002344 CMP TMPO, TMP1 s1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
052014 901021 BNE 75$ *BR IF NOT 
052016 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
052022 001073 BNE 77$ ‘BR IF NOT 

52024 104456 TRAP  CSERHRD 
052032 013534 “WORD ERR1S 
052034 012746 003716 MOV #FRMT17,=(SP) 
Sesed Biseas ome my ead 
052046 104414 TRAP  (C$PNTB 
052050 062706 000004 ADD #4,SP 





sy 


cme wre? bom ppt fosl vaca Goins Beoew-eh nega seas. Maes en 
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|TEST 17 SET PORT “B’ REQUEST TEST | 
052054 7 052342 JMP 798 sBYPASS THE REST OF THE CHECKS 
052060 013737 002 6 002332 75$: MOV TMP2 ,BADDAT 3SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
052066 013737 002250 002266 MOV. = PORTB, PTNBR 3SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052074 113777 902250 130300 MOVB PORTB,@RPCS2 :SELECT PORT B. 
052102 005737 002342 TST TMPO 7SEE IF STATUS EQ 0 FROM PORT A. 
052106 001414 BEQ 4h 7BR IF 2 
032110 013737 002246 002266 MOV —- PORTA, PTNBR ZSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052116 013737 002350 002 MOV TMP3,BADDAT "BAD DATA’ FOR ERROR TY T 
02124 113777 902246 130250 MOVB PORTA,a@RPCS2 :SELECT PORT A. 
052132 005737 002344 TST TMP1 7SEE IF STATUS EQ ZERO FROM PORT B. 
052136 001025 BNE 77$ BR IF | 
052140 012737 177777 002302 76$: MOV $ #=1,RELERR ZSET "RELEASE ERROR’ INDICATOR | 
052146 012777 000011 130216 MOV #11, aRPCS1 TCLEAR THE DRIV 
052154 012777 000013 130210 MOV #13,aRPCS1 RELEASE THE DRIVE 
052162 104456 TRAP — CSERHRD 
052164 000011 .WORD 9 | 
052166 007313 -WORD M26 | 
052170 013214 -WORD ERR 
052172 012746 003716 MOV ss #FRMT17,=( SP) 
052176 012746 1 MOV #1,-(SP5 
052202 010600 MOV SP,R 
052204 104414 TRAP  CSPNTB 
052206 062706 000004 ADD #4, SP 
052212 013737 002346 002332 77$: MOV TMP2 ,BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
052220 013737 002246 002266 MOV _—s— PORTA, PTNBR [CHANGE PORT NUMBER | 
052226 023737 002332 CMP §- EXPTED,BADDAT ALL BITS OK ? 
052234 001414 BEQ 78$ [BR IF OK FROM PORT A. 
092856 104456 TRAP CSERHRD 
052240 00001 -WORD 11 
052242 006072 -WORD EM7 
052244 013000 -WORD ERRS 
52246 012746 003471 MOV ss #FRMT14,=( SP) 
52252 012746 000001 MOV #1,-(SP5 
052256 010600 MOV. _— SP. RO 
52260 104414 TRAP  CSPNTB 
092262 062706 000004 ADD =: #4, SP 
052266 013737 002350 002332 78$: MOV TMP3 ,BADDAT sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
052274 013737 002250 002266 MOV _—«- PORTB,, PTNBR SCHANGE PORT NUMBER 
052302 023737 002336 002332 CMP § EXPTED,BADDAT SEE IF READ OK FROM PORT B. | 
052310 001414 BEQ BR IF OK 
052312 104456 TRAP  CSERHRD 
052314 000014 .WORD 12 
052316 006072 -WORD EM? 
052320 01 “WORD ERRS 
052322 012746 003522 MOV ss #FRMT15,=( SP) 
052326 012746 000001 MOV = #1, = (SPS 
052332 010600 P-RO 
052334 104414 TRAP  CSPNTB 
052336 062706 000004 ADD =_-« #4, SP | 
05234 79S: ! 
052342 1$: 
27 05234 L10057: 
052342 104401 TRAP = CSETST 
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cZR JNAQ RPO7 DUAL PORT TEST MA 
TEST 18 RESET ATTENTION 'A® BY 
‘ .SBTTL TEST 18 RESET ATTENTION °A* BY DRV CLR 
6 g*VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
‘ * SEIZING PORT. 
3* 
mB} is A. SET EACH PORT *S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
2* ° 
11 3* ' 
12 tt B. SEIZE THE DRIVE THROUGH PORT °A’ BY WRITING 0°S INTO RPDS. 
3* } 
6 st (C. ISSUE A DRIVE CLEAR COMMAND. 
3* 
16 3* 
17 t* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ATTENTION 
18 3* BIT FOR PORT ‘A’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
19 it *B’ IS STILL SET. 
20 3* 
21 
100 052344 T18:: 
104 052344 005737 002340 TST DRVBAD zSYSTEM OK? 
052350 001402 BEQ 64$ SIF SO, TAKE THE BRANCH 
52352 104432 TRAP CSEXIT_ 
52354 001666 L10 | 
-ataneedananannsaneeeeceneeseeuennenenanennnenseneeneneeneeeneeeeneeeereeeete } 
052356 | 
:SET ATTENTION BITS FOR BOTH PORTS 
052356 113777 002246 130016 MOVB  PORTA,aRPCS2 =: SELECT PORT t 
52 005777 130014 67$: TST @RPDS [MAKE SURE DRIVE AVAILABLE 
052370 001775 BEQ 67$ 
052372 052777 130002 BIS #20,aRPCS2 
052400 005077 130002 CLR P :FORCE ATA BIT 
52404 013777 002250 127770 MOV PORTB,aRPCS2 3SELECT THE OTHER PORT 
052412 005777 127766 65$: TST @RPDS WAIT FOR DRIVE TO TIMEOUT | 
052416 001775 BEQ 65$ TBR IF DRIVE HASN'T TIMED OUT | 
052420 052777 127754 BIS #20,aRPCS2 
052426 005077 127754 CLR PER :FORCE ATA BIT 
052432 113777 002246 127742 MOVB PORTA, aRPCS2 SELECT PORT A AGAIN 
052440 005777 127740 66$: TST @RPDS :WAIT FOR DRIVE TO TIMEOUT 
052444 001775 BEQ 66$ ‘BR IF DRIVE MASNS T TIMED OUT | 
PPI TITITI TITLE LI LITT L LLL ELLE TL Ete ELLE 
CONFIRM THAT BOTH ATTENTION BITS ARE SET | 
052446 113777 002246 127726 MOVB PORTA, aRPCS2 :SELECT PORT A 
052454 013737 002246 002266 MOV PORTA.PTNBR sMOVE" PORT ADDRESS TO LOCATION FOR TYPEOUT 
052462 005037 002276 CLR Ck LEAR HE “Ch HECK ERROR’ INDICATOR 
052466 017737 127712 002332 MOV @RPDS ,BADDAT cit” CONTENTS O | 
052474 013737 002404 002334 MOV RPDS ,BADAUR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
052502 012737 100000 002336 MOV #ATA.EXPTED : ziWHAT REGISTER SHOULD BE 
052510 013737 002332 002342 MOV BADDAT, TMPO :MOVE REGISTER CONTENTS TO "TMPO* 
052516 042737 077777 002342 BIC #*CATA.TMPO ; SAVE SPECIFIED BIT 
032524 023737 002336 002342 CMP EXPTED, TMPO : COMPAR 
052532 001427 BEQ 6 ‘BR IF OK 
052534 013737 002332 002352 MOV BADDAT, TMP4 :COPY "BAD DATA’ 
052542 042737 100000 002352 BIC MATA, TAPG SCLEAR THE MASKED BITS | 
052550 053737 002352 002336 BIS TMP4 ,EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
! 
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TEST 18 RESET ATTENTION ‘A* BY DRV 


a 104456 TRAP  CSERHRD 
p3g2 .WORD 4 
0525 146 : EM1 
0525 12654 «WORD ERR 
0525 e O12 46 003716 MOV #FRMT17,-(SP) 
052572 012746 000001 MOV #1,-(SP5 
052576 10600 MOV SP°RO 
052600 104414 TRAP  (C$PNTB 
052602 062706 000004 ADD #4,SP 
eat 005137 002276 a COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
052612 005737 002276 TST CKERR :WAS ATTN BIT FOR PORT A SET ? 
052616 001402 BEQ +6 
052620 000137 054242 JMP i$ :BY PASS REST at TEST IF NOT 
052624 113777 002250 127550 MOVB = PORTB, aRPCS2 ZSELECT PORT B 
052632 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
052640 005037 002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
052644 017737 127534 002332 MOV @RPDS ,BADDAT cit" CONTENTS OF RPD 
052652 013737 002404 002334 MOV RPDS .BADADR :FORM R REGISTER ADDRESS OF ERROR MESSAGE 
052 012737 100000 002336 MOV #ATA-EXPTED iz WHAT REGISTER SHOU 
052 013737 002332 002342 MOV BADDAT, TMPO sMOVE REGISTER CONTENTS TO *TMPO* 
052674 042737 077777 002342 BIC #*CATA.TMPO SAVE SPECIFIED D BITS 
052702 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
052710 001427 BEQ 7 :BR IF OK 
052712 013737 002332 002352 MOV BADDAT, TMP4 SCOPY "BAD DATA’ 
052720 042737 100000 002352 BIC HATA, TMPG *CLEAR THE MASKED BITS 
052726 053737 002352 002336 BIS TMP4 EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
052734 104456 TRAP CSERHRD 
052736 000004 «WORD 
052740 006146 <WORD €&M10 
052742 012654 <WORD ERR3 
052744 012746 003716 MOV #FRMT17,=(SP) 
052750 012746 000001 MOV #1,-(SP) 
52754 010600 MOV 
052756 104414 TRAP CSPNTB 
052760 062706 000004 ADD 4,SP 
052764 005137 002276 hd COM CRERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
052770 005737 002276 TST CKERR :WAS ATTN BIT FOR PORT B SET ? 
052774 001402 BEQ +6 ‘BR WA 
052776 000137 054242 JMP is :BYPASS REST OF TEST IF NOT 
22 REREAAERAKEREAEEEEEEEEEEEEEEEEEEEAEAEEAEEAEEREEEEEEAAREEEEEEEEAEEEEEREEEEEEEEEE 
:SEIZE THE DRIVE THROUGH PORT A 
053002 113777 002246 127372 MOVB  PORTA,a@RPCS2  ;SELECT PORT 
053010 013737 002246 002270 MOV PORTA,SELZPT ;:STORE SEIZING PORT* S ADDRESS 
053016 005077 12736 CLR a@RPDS :WRITE RPDS 
053022 113777 002250 127352 MOVB = PORTB, aRPCS2 :SELECT PORT B 
053030 013737 002250 00 3366 MOV PORTB.PTNBR 3MOVE" PORT ADDRESS TO LOCATION FOR TYPEOUT 
053036 013737 992280 00227 MOV PORTB,OPPRT ‘OPPOSITE’ PORT ADD ESS 
053044 017737 127334 002332 MOV @RPDS,BADDAT ste IF DRIVE SEIZED BY 
Biss Giang Seams Messe BY OR seme SSL Ege 
053064 023737 002336 002332 CMP EXPTED,BADDAT 1S THE REGISTER ZERO 


' 


SSS 
S 


oO 
™m 
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72$ sBR IF IT IS 

‘eee 

EM4 

ERR2 

1$ sBYPASS REST OF THE SUBTEST 


PORTA, @RPCS2 sSELECT 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


@RPDS.BADDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP!ILV.B BADDAT CLEAR dont CARE BITS 
#MOL !P PGIIDPRIDRY! VV, EXPTED sENPECTED 'S ATUS 
EXPTED, TPT ;USE GOOD DA TA AS A MAS 

LEMENT THE EXPECTED STATUS 
BADDAT, TMPO SSAVE THE ACTUAL STATUS 
TMP1, TAPO :CLEAR UNWANTED ait 1s 
EXPTED, TMPO TARE THE EXPECTED STATUS BITS SET ? 
73$ ‘BR IF THEY ARE 
CSERHRD 
EMS 
ERR3 


MTTITITLIILI LILLIE T LILLE LLL LLL EE LEE EE EEE EEL EEE EEE 


:TSSUE DRIVE CLEAR COMMAND TO PORT A 


#11, aRPCS1 :D0 A DRIVE CLEAR COMMAND 


FRRRRAEREREEEEEREEEEEEEEEEEEEEEREEEEEEEEEAEEEEEAEEEEEEREEEEREREEEEREEREEEEEEEEE 


:VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 


CKERR LEAR THE "CHECK ERROR’ INDICATOR 

@RPDS ,BADDAT cite CONTE S 

RPDS ,BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
PT WHAT REGISTER 


EXPTED $ 

BADDAT, TMPO *MOVE REGISTER CONTENTS TO *TMPO' 
#°CATA.TMPO SAVE SPECIFIED BITS 

EXBTED, *TMPO : COMPARE, TH HE BITS 

BADDAT, TMP4 [COPY "BAD DATA’ 

HATA, TMP4 ‘CLEAR THE MASKED BITS 

TMP4 .EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
CSERHRD 

M47 

ERR10 

#FRMT17,=(SP) 

#1,-(SP5 

CSPNTB 

#4,SP 

CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 


FERRER EEE EEE EEEEEEREEEEEEEEEEAEEEEEEERAEEREREREAEEREEEEEEEEEREEEEEEEEEE 


RELEASE THE DRIVE FROM PORT A 





SEQ 0143 | 





VERIFY THAT THE DRIVE IS IN NEUTRAL 
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TEST 18 RESET ATTENTION ‘A® BY DRV CLR 
053350 113777 002246 127024 MOVB PORTA, aRPCS2 ZSELECT PORT 
053356 013737 00224 992266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS" TO LOCATION FOR TYPEOUT 
053364 012777 000013 127000 MOV #13,aRPCS1 zISSUE RELEASE THROUGH PORT A 
SSTARi THE TIMER 
053372 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
053376 012737 000050 002306 MOV #40. ,WATCH ‘SET WATCH TO 40. M | 
053404 005737 002306 76$: ‘TST WATCH 
053410 001375 BNE 76$ 
053412 005037 002302 CLR RELERR ich EAR THE "RELEASE ERROR ' INDICATOR 
053414 013737 002404 002334 MOV RPDS -BADADR ORM THE ADDRESS OF RPDS FOR TYPEOUT 
053424 012737 011700 002336 MOV AMOL IPM! DPRIDRYIVV EXPTED :COMPARISON CONSTANT | 
053432 113777 002246 126742 MOVB = PORTA, aRPCS :SELECT PORT’ 
053440 17737 126740 002346 MOV @RPDS, THP2 “GET THE DRIVE STATUS REGISTER FROM PORT A. | 
053446 042737 024005 002346 BIC sO IP IURL SOR! ILV., TAPE ZCLEAR DONT CARES | 
053454 013737 002346 00234 MOV Y N | 
053462 042737 100100 00234 BIC WATA‘VV,TMPO | :CLEAR PORT DEPENDENT BITS FROM THE COPY 
053470 113777 002250 126704 MOVB PORTS .aRPCS2 SELECT PORT 
053476 017737 126702 002350 RPDS, TMP THE DRIVE STATUS REGISTER FROM PORT B. 
053504 042737 024005 002350 BIC #PIP!WRL'OM!ILV, ines ZCLEAR DONT CARES 
053512 013737 002350 002344 MOV ‘ :COPY IT INTO "TMP1° 
053520 042737 100100 002344 BIC WATA'VV,TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
093526 025737 002342 002344 CMP THEO, THPT 31S THE ygiAtus REGISTER THE SAME FROM BOTH PORTS ? 
053536 005737 002342 TST TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
053542 001073 BNE 79$ *BR IF NOT 
053544 104456 TRAP  C$SERHRD 
053546 000006 «WORD 6 | 
053550 010751 “WORD 
053552 013534 ;WORD ERR15 
053554 012746 003716 MOVs #FRMT17,=(SP) 
053560 012746 000001 MOV #1,-(SP5 | 
053564 010600 MOV SP-RO 
053566 104414 TRAP  C$PNTB | 
053570 062706 000004 ADD #4,SP 
053574 000137 054076 JMP 81$ _ {BYPASS THE REST OF THE CHECKS 
053600 013737 002346 002332 77$: #MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR seRROR MESSAGE 
053606 013737 002250 002266 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
053614 113777 002250 126560 MOVB PORTB.a@RPCS2 :SELECT PORT 
053622 005737 002342 TST TMPO SEE IF STATUS “EQ 0 FROM PORT A. 
pases Ea 002246 00226 BOv 3 A PTNBR oF dine PO PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
053636 013737 002350 ie MOV TMP3,BADDAT :*BAD DATA' 7fOR ERROR TYPE OUT 
053644 113777 002246 126530 MOVB PORTA,@RPCS2 :SELECT PORT 
053652 005737 002344 TST TMP1 :SEE IF STATUS” EQ ZERO FROM PORT B. 
053656 901025 BNE 79$ :BR IF NOT 
053660 O12? 7 177777 002302 78%: MOV #-1,RELERR [SET "RELEASE ERROR® INDICATOR 
053666 ot 777 000011 12647 MOV #11. aRPCS1 [CLEAR THE DRIVE 
05674 12777 12647 MOV #13, aRPCS1 SRELEASE THE DRIVE 
053702 104456 TRAP CSERHRD 
053704 90001 .WORD 9 
053706 007313 ;WORD EM26 








yy _.¥ 
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TEST 18 RESET ATTENTION ‘A’ BY DRV 

05371 .WORD ERR 
05371 i 46 003716 MOV #ERMT17,=(SP) 
053716 12746 000001 MOV #1,<(SP5 
05372 00 MOV 
053724 104414 TRAP  C$PNTB 
053766 706 9000 ADD #4,SP 
053732 013737 002346 002332 79$: MOV TMP2 ,BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
053740 013737 00224 002266 MOV PORTA, PTNBR ;CHANGE PORT NUMBE 
053746 737 100000 002 BIC HATA, BADDAT [DON'T CHECK THE ATTN BIT 
053754 023737 002336 002332 CMP EXPTED,BADDAT ALL BIT 
053762 001414 BEQ 80$ :BR IF OK OKon PORT A. 
053764 104456 TRAP  C$ERHRD 
053766 000013 .WORD 11 
053770 006072 ;WORD M7 

53772 013000 ;WORD ERRS 
053774 012746 003471 MOV #ERMT14,-(SP) 

54000 012746 000001 MOV #1,=(SP5 
054004 010600 MOV SP,RO 

54006 104414 TRAP  CS$PNTB 
054010 062706 000004 ADD a, 5$P 
054014 013737 002350 002332 80$: MOV TMP3,BADDAT CHECK REDS 4foR BIT FAILURES = FROM PORT B. 
054022 013737 002250 00226 MOV PORTB,PTNBR 3 CHAN GE PORT NUMBER 

54030 042737 100000 00233 BIC HATA, BADDAT [DON'T chee. THE ATTN BIT 
054036 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 
054044 001414 BEQ 81$ 7BR IF OK 
054046 104456 TRAP  CSERHRD 
054050 000014 «WORD 12 

5405 07 “WORD EM7 

54054 01 “WORD ERRS 
054056 012746 003522 MOV #FRMT15,=(SP) 
054062 012746 000001 MOV #1,-(SP) 

54066 010600 MOV SP.R 
054070 104414 TRAP  C$PNTB 
094072 062706 000004 818: ADD #4,SP 

FERRARA ERAEEAAEEREEEEEEEEEEEEEEEEAEEEEEEAEREERERERERERREREERAEEREEEEEEEEREEEE 
[CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 

054076 113777 002250 126276 MOVB = PORTB, aRPCS2 :SELECT PORT B 
054104 013737 002250 002266 MOV PORTB,PTNBR :HOVE ene ADDRESS TO LOCATION FOR TYPEOUT 
054112 005037 00227 CLR CKERR THE "CHECK ERROR’ INDICATOR 
054116 017737 126262 002332 MOV @RPDS ,BADDAT cit" CONTENT S OF RPDS 

054124 013737 002404 002334 MOV RPDS ,BADADR ; FoR REGISTER ADDRESS OF ERROR MESSAGE 
054132 012737 100000 002336 MOV #ATA,EXPTED ie REGISTER SHOULD BE 

054140 013737 002332 00234 MOV BADDAT, TMPO MOVE REGISTER CONTENTS TO ‘TMPO* 
054146 042737 077777 00234 BIC #°CATA,TMPO SAVE SPECIFIED BITS 

054154 023737 002336 002342 CMP XPTED, TMPO :COMPARE THE BITS 

054162 001427 BEQ 2$ :BR IF K 
054164 013737 002332 00235 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
054172 042737 100000 00235 BIC MATA, TAPG :CLEAR THE MASKED BITS 
054200 053737 002352 002336 BIS TMP4 .EXPTED :"OR’ WITH GOOD DATA FOR TYPEOUT 
054206 104456 TRAP SERHRD 
054210 000003 WORD 
054212 011106 “WORD &MSO 
054214 012726 “WORD ERR 
054216 ot 746 003716 MOV #FRMT17,-(SP) 
054222 012746 000001 MOV #1,-(SP5 





CZRJNAO RPO7 DUAL PORT TEST MACRO yr 00 1-JAN-83 15:44:57 PAGE 44 be 
TEST 18 RESET ATTENTION ‘A® BY DRV 


Sarees Sto 910900 





MOV 
TRAP Scone 
#4,SP 


054232 best0 000004 ADD 
094256 005137 002276 ws COM CKERR ySET THE REGISTER COMPARE ERROR INDICATOR 
05424 1$: 
108 05424 L10060: 
054242 104401 TRAP  CSETST 








SEQ 0146 | 
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TEST 19 RESET ATTENTION 'B’’ BY DRV C 
1 .SBTTL TEST 19 RESET ATTENTION ‘8’ BY DRV CLR 
4 ;*VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT CF THE 
4 3* SEIZING PORT. 
;* 
$ it A. SET EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
o* ° 
8 if 
% '* 6B. SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING O'S INTO RPDS. 
;* 
W t* (C. ISSUE A DRIVE CLEAR COMMAND. 
** 
13 :* D. RELEASE THE pPRIVE THROUGH PORT 'B*. VERIFY THAT THE ATTENTION 
14 3* BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
15 * *a’ IS STILL SET. 
16 * 
17 
18 054244 119:: 
22 054244 005737 002340 TST DRVBAD zSYSTEM OK? 
054250 001402 BEQ 64$ ‘IF SO, TAYE THE BRANCH 
054252 104432 TRAP ett 
054254 001666 .WORD 110061-. 
vaueannianseanetaeeseccueeecueteuuensnanencueesensetsesensussesseseeneesenes 
054256 
:SET ATTENTION BITS FOR BOTH PORTS 
054256 113777 092246 126116 MOVB PORTA,@RPCS2 SELECT PORT 
054264 005777 126114 67$: TST a@RPDS [MAKE SURE DRIVE AVAILABLE 
054270 001775 BEQ 67$ 
054272 052777 000020 126102 BIS #20,aRPCS2 
054300 005077 126102 CLR aRPER1 ZFORCE ATA BIT 
054304 013777 002250 126070 MOV PORTB, aRPCS2 :SELECT THE OTHER PORT 
054312 005777 126066 65$: TST aRPDS WAIT FOR DRIVE TO TIMEOUT 
054316 001775 BEQ 65$ <BR IF DRIVE HASN'T TIMED OUT 
054320 052777 000020 126054 BIS #20, a@RPCS2 
054326 005077 126054 CLR aRPERI sFORCE ATA BIT 
054332 113777 002246 126042 MOVB PORTA,@RPCS2 ;:SELECT PORT A AGAIN 
4340 005777 126040 66$: TST @RPDS ;WAIT FOR DRIVE TO TIMEOUT 
4344 001775 BEQ 66$ [BR IF DRIVE HASN'T TIMED OUT 
seeeeeeteneeeeneneteeeeeeeedeeeeaaeeeeeeeneeeeeeeeaneeseeneeeneeeeeeneeenerere 
‘CONFIRM THAT BOTH ATTENTION BITS ARE SET 
54346 113777 002250 126026 MOVB = PORTB, aRPCS2 :SELECT PORT B 
054354 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
54362 005037 002276 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
054366 017737 126012 002332 MOV @RPDS BADDAT GET CONTEN OF RPDS 
054374 013737 002404 002334 MOV RPDS ,BADAD FORM RE EGISTER ADDRESS OF ERROR MESSAGE 
054402 012737 100 002336 MOV #ATA PRPTED : T REGIST 
054410 013737 902 334 MOV BADDAT, TMPO {OVE REGISTER CONTENTS TO "TMPO* 
054416 0427 7? 077777 00234 BIC #*CATA.TMPO ;SAVE SPECIFIED BITS 
054424 023737 002336 00234 CMP EXPTED, TMPO :COMPARE THE BITS 
054432 001427 BEQ 68$ [BR IF OK 
054434 013737 002332 002352 MOV BADDAT, THP4 [COPY "BAD DATA’ 
054442 042737 100 002 5 BIC #ATA, TAPS 3CLEAR THE MASKED BITS 
054450 053737 002352 336 BIS TMP sexPTeD :*OR® WITH GOOD DATA FOR TYPEOUT 
054456 104456 TRAP (SER 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 45-1 SEQ 0148 
TEST 19 RESET OL ENT ION "B"’ BY DRV CLR 

054460 000004 .WORD 4 
054462 146 <WORD €&M10 
054464 012654 ,WORD ERR3 
054466 012746 003716 MOV #FRMT17,<(SP) 
054472 012746 000001 MOV #1,-(SP5 
054476 010600 MOV P‘RO 
054500 104414 TRAP CSPNTB 
054502 062706 000004 ADD SP 
09490 005137 002276 oe COM trea ZSET THE REGISTER COMPARE ERROR INDICATOR 
054512 005737 002276 TST CKERR zWAS ATTN BIT FOR PORT B SET ? 
054516 001402 BEQ +6 :BR IF 
054520 000137 056142 JMP is SBYPASS Rest OF TEST IF NOT 
054524 113777 002246 125650 MOVB = PORTA, @RPCS2 :SELECT PORT A 

54532 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
054540 005037 002276 CLR Ck > CLEAR THE "CHECK ERROR’ INDICATOR 

544 017737 125634 002332 MOV @RPDS BADDAT cit” CONTENT RPDS 

054552 013737 002404 002334 MOV RPDS ,BADA : FORM REGISTER ODDRESS OF ERROR MESSAGE 
054560 012737 100000 002336 MOV PATALEXPTED iz WHAT REGISTER S 

54566 013737 002332 002342 MOV BADDAT , THPO :MOVE REGISTER CONTENTS TO *TMPO" 
054574 2737 077777 002342 BIC “CATA,TMPO ;SAVE SPECIFIED BITS 

54602 023737 36 002342 CMP EXPTED. TMPO 3COMPARE THE BITS 
054610 001427 BEQ ? IF Ok 
054612 013737 002332 002352 MOV BADDAT , TMP4 :COPY "BAD DATA’ 

546 042737 002352 BIC ATA, TAP4 ‘CLEAR THE MASKED BITS 
054626 053737 002352 002336 BIS Tmpa. EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
054634 10445 TRAP CSERH 
0546 .WORD 4 
054640 006146 ;WORD £10 
054642 012654 -WORD ERR3 
054644 019746 003716 MOV #FRMT17,-(SP) 
054650 012746 000001 MOV #1,-(SP5 
054654 010600 MOV PRO 
054656 104414 TRAP C$PNTB 

54660 062706 000004 ADD #4,SP 
054664 005137 002276 nae COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
054670 005737 002276 TST CKERR :WAS ATTN BIT FOR PORT A SET ? 
054674 00140¢ BEQ +6 :BR IF IT WwW 
054676 000137 056142 JMP i$ ‘BYPASS REST OF TEST IF NOT 

Z FEAAAAAAAAEAEEAEAEAEEEREREEAEEEEEARAAEEAERAEEREREREREEEEEERAEREREREREEREEEEEEEEE 
ZSEIZE THE DRIVE THROUGH PORT B 

054702 113777 002250 125472 MOVB PORTB,aRPCS2 ;SELECi PORT B 
054710 013737 002250 002270 MOV PORTB.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
054716 005077 125462 CLR @RPDS :WRITE RPDS 
054722 113777 002246 125452 MOVB _— PORTA, aRPCS2 ZSELECT PORT 
054730 013737 002246 902266 MOV PORT TA,PTNBR MOVE’ PORT ADDRESS” TO LOCATION FOR TYPEOUT 
054736 013737 2246 00287 MOV PORTA, OPPRT ‘OPPOSITE’ PORT 
054744 017737 125434 99 32 MOV @RPDS.BADDAT she IF DRIVE SEIZED BY PORT B 
054752 013737 002404 2334 MOV RPDS ,BADADR :GEN ERATE BAD REGISTER ADDRESS 
054760 005037 002336 CLR EXPTED SREGISTER SHOULD BE ZERO 
054764 023737 002336 002332 CMP EXPTED.BADDAT 1S THE REGIST ER ZERO 
054772 001406 BEQ 2$ :BR IF IT 1S 





es 
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est 19 RESET ATTENTION °B"’ BY DRV 


054774 104456 TRAP  CSERHRD 

054776 000001 WORD 

055 005705 <WORD EMG 

055002 012576 .WORD ERR2 

939004 000137 056142 - JMP 1$ :BYPASS REST OF THE SUBTEST 

055010 113777 002250 125364 MOVB = PORTB, aRPCS2 :SELECT PORT B 

055016 013737 002250 90226 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
055024 017737 125354 002 @RPDS AT :SEE IF SEIZING PORT SEES CORRECT STATUS 
055032 042737 020005 002332 BIC #OM!PIP!ILV,BAD CLEAR D ARE BITS 
055040 012737 011700 0023 MOV #MOL !PGM'DPR! DRY! VV,EXPTED EXPECTED STAT 

55046 013737 002336 002344 MOV EXPTED, TMP1 :USE GOOD DATA A 

055054 005137 002344 COM MP1 ;COMPLEMENT THE EXPECTED STATUS 
55060 013737 002332 002342 MOV BADDAT, TMPO 3SAVE THE ACTUAL STATUS 

55066 043737 002344 002342 BIC TMP1, TAPO CLEAR UNWANTED Bits 

055074 023737 002336 002342 CMP ExPTED” TMPO ‘ORE THE EXPECTED STATUS BITS SET ? 
055102 001404 BEQ 73$ ‘BR IF THEY ARE 

055104 104456 TRAP  CSERHRD 

055106 000002 «WORD 2 

055110 005736 -WORD EMS 

055112 012654 .WORD ERR3 

055114 73$: 


Ff RARE ARAAAEEEEAEEEEEEEEAEAEEEEEAEEAEEAEEEREREREREREEEAAEEEEAEEEEEREEEEEREEEEEEE 


ISSUE DRIVE CLEAR COMMAND TO PORT B 
055114 012777 000011 125250 MOV #11,aRPCS1 300 A DRIVE CLEAR COMMAND 


FEAR AAAAAAAEAAEAEEEEAEREREAEREEEEARAEAEAEAEEAEREREEEREEAEAAAAEEAEEEAEREEAEREEED 


SVERIFY THAT ATTENTION BIT FOR PORT B CLEARED 


055122 005037 002276 CLR CKERR LEAR THE "CHECK ERROR® INDICATOR 
055126 017737 125252 002332 MOV @RPDS ,BADDAT cite CONTENTS OF R 

055134 013737 002404 002334 MOV RPDS BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
055142 005037 002336 CLR EXPTED :WHAT REGISTER SHOULD BE 

055146 013737 002332 002342 MOV BADDAT, TMPO SMOVE REGISTER CONTENTS TO ‘TMPO’ 
055154 042737 077777 002342 BIC #°CATA.TMPO SAVE SPECIFIED BITS 

055162 023737 002336 002342 CMP XPTED, TMPO :COMPARE THE BITS 

055170 001427 BEQ BR IF 

055172 013737 002332 002352 MOV BADDAT, TMP4 :COPY °BAD DATA’ 

055200 042737 100000 002352 BIC HATA, TAPG CLEAR THE MASKED BITS 

055206 053737 002352 002336 BIS TMP4 GEXPTED :"OR' WITH GOOD DATA FOR TYPEOUT 
055214 104456 TRAP  CSERHRD 

055216 3 .WORD 3 

055220 011020 “WORD EM47 

055222 013262 “WORD ERR 

055224 012746 003716 MOV #FRMT17,=(SP) 

055230 012746 MOV #1,-(SP5 

055234 010600 MOV SP 

055236 104414 TRAP  (C$PNTB 

055240 062706 000004 ADD #4,SP 

055244 005137 002276 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


POT iriiriiriiiiviiiiriiritiititiitiy) 
RELEASE THE DRiVE FROM PORT B 


002250 125124 MOVB PORTB,a@RPCS2 sSELECT PORT B 
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TEST 19 RESET ATTENTION 'B’’ BY DRV 

055256 013737 002250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
055264 012777 000013 125100 MOV #13,aRPCS1 ZISSUE RELEASE THROUGH PORT B 

ZSTART THE TIMER 
055272 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
055276 012737 000050 002306 MOV #40. ,WATCH tSET WATCH TO 40. MS 
055 005737 002306 76$: TST WATCH 
055310 001375 BNE 

:VERIFY THAT THE DRIVE IS IN NEUTRAL 
055312 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
055316 013737 002404 002334 MOV RPDS. ADAD : M THE ADDRESS OF RPOS FOR TYPEOUT 
055324 012737 011700 002336 MOV Amol 'PGn!DPR DRViVY. EXPTED sCOMPARIS CONSTANT 
055332 113777 002246 125042 MOVB PORTA,aRPCS2. ;SELECT PORT’A. 
055340 017737 125040 002346 MOV PDS, TMP *GET THE DRIVE STATUS REGISTER FROM PORT A. 
055346 e537 024005 002346 BIC #PIP'URLIOM!ILV,TMP2  sCLEAR DONT CARES 
055354 013737 002346 002342 MOV THP2 , THP 3 COPY 1T’ INT 
055362 2737 100100 002342 BIC #ATA‘VV, THPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
055370 113777 002250 125004 MOVB PORTB,aRPCS2 :SELECT PORT B. 
055376 17737 125002 002350 MOV PDS, TMPS iGET THE DRIVE STATUS REGISTER FROM PORT B. 
055404 042737 024005 002350 BIC #PIP!URL ‘OM! ILV, TMP ran DONT CARES 
055412 013737 002350 002344 MOV TMP3, TMP COP Y IT INTO 
055420 042737 100100 002344 BIC WATA'VV,TMP1 =: CLEAR PORT SEPENDENT BITS FROM THE COPY 
055426 023737 002342 002344 CMP TMPO, TMP1 tI1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
0554 1021 BNE 77$ ‘BR IF NOT 
0554 5737 002342 TST TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
055442 001073 BNE 79$ [BR IF NO 
055444 104456 TRAP  CSERHRD 
055446 ; 6 
055450 010751 ? 
055452 013534 “WORD ERR15 
055454 012746 003716 MOV #FRMT17,-(SP) 
055460 012746 000001 MOV #1,-(SP5 
055464 010600 MOV a 
055466 104414 TRAP CSPNTB 
055470 062706 000004 ADD #4,SP 
055474 000137 055776 JMP b18 sBYPASS THE REST OF THE CHECKS 
055500 013737 002346 002332 77$:  # MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
055506 013737 002250 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
055514 113777 002250 124660 MOVB PORTB.@RPCS2 SELECT 
055522 005737 002342 TST TMPO sSEE IF STATUS “EO 0 FROM PORT A. 
055526 001414 BEQ 78$ <BR IF 2 
055530 013737 002246 002266 MOV PORTA, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
055536 013737 002350 002332 MOV TMP3,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
055544 113777 002246 124630 MOVB PORTA,@RPCS2 SELECT A. 
055552 005737 002344 TST TMP1 ‘SEE IF STATUS EQ ZERO FROM PORT B. 
055556 001025 BNE 79$ BR IF 
055560 012737 177777 002302 78$: MOV #~1,RELERR TSET 'R RELEASE ERROR" INDICATOR 
055566 012777 000011 124576 MOV #11.aRPCS1 [CLEAR THE DRIVE 
055574 012777 124570 V #13. aRPCS1 SRELEASE THE DRIVE 
055602 104456 TRAP CSERHRD 
055604 000011 .WORD 
055606 007313 “WORD £EM26 
055610 013214 <WORD ERR9 
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055612 012746 003716 MOV #ERMT17,<(SP) 
099618 012746 00000 MOV #1,-(SP5 
055 01 MOV S 
055624 104414 TRAP  C$PNTB 
055626 0627 909004 ADD ry s 
055632 01373 : 6 002332 79$: MOV TMP2 ,BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
055640 013737 002246 002266 MOV PORTA, PTNBR :CHANGE PORT NUMBER 
055646 042737 100000 00235¢ BIC #ATA, BADDAT :DON'T CHECK THE ATTN BIT 
095694 023737 002336 00233 CMP EXPTED,BADDAT ALL BITS OK ? 

55662 001414 BEQ 80$ [BR IF OK FROM PORT A. 
055664 104456 TRAP  CSERHRD 
055666 000013 .WORD 11 
055670 906072 .WORD M7 
055672 01 “WORD ERRS 
055674 012746 003471 MOV #FRMT14,-(SP) 

55700 012746 000001 MOV #1,-(SP5 
055704 0106 MOV Pp 

55706 104414 TRAP  C$PNTB 
055710 062706 000004 ADD #4,SP 
055714 013737 002350 002332 80$: MOV TMP3,,BADDAT ZCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
055722 013737 002250 002266 MOV PORTB,PTNBR SCHANGE PORT 
055730 042737 100000 002332 BIC #ATA,BADDAT sDON'T CHECK THE ATTN BIT 

55736 023737 002336 002332 CMP EXPTED,BADDAT :SEE IF READ OK FROM PORT B. 
055744 001414 BEQ 1 7BR IF OK 
055746 104456 TRAP CSERHRD 
055750 000014 .WORD 12 
peesee | 94$000 WORD EARS 
055756 Seize: 003522 MOV #FRMT15,=(SP) 
055762 012746 000001 MOV #1,-(SP5 
055766 010600 MOV P; 
055770 104414 TRAP  CS$PNTB 
09977¢ 062706 000004 al ADD #4,SP 

22 RAETAEAAAAEAAAEAAAEEAEAEEEEAAAEEEAEARAAEAAREAAAAEEAAEAERAAAAERAEAAAEEEAERAEEREREEE 
[CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 

055776 113777 002246 124376 MOVB = PORTA, @RPCS2 :SELECT PORT A 

54004 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
056012 005037 002276 CLR Ck -CLEAR THE "CHECK ERROR’ INDICATOR 
056016 017737 124362 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
056024 013737 002404 002334 MOV RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
056032 012737 1 002336 MOV #ATA,EXPTED :::WHAT REGISTER SHOUL 

056040 013737 002332 002342 MOV BADDAT, TMPO :MOVE REGISTER CONTENTS TO *TMPO* 
056046 042737 077777 002342 BIC #°CATA,TMPO ;SAVE SPECIFIED BITS 
056054 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
056062 001427 BEQ 82$ :BR IF OK 
056064 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
056072 042737 0 002352 BIC MATA, TAPG [CLEAR THE MASKED BITS 
056100 053737 002352 002336 BIS TMP4 .EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
056106 104456 TRAP SERHRD 
056110 03 WORD 
056112 011106 “WORD MSO 
056114 012726 “WORD ERR4 
056116 012746 003716 MOV #FRMT17,=(SP) 
056122 012746 000001 MOV #1,-(SP5 
056126 01 MOV SP,RO 





POR 
NT 





a 


} 
ST MACRO V04.00 1-JAN-83 15:44:57 PAGE 45-5 


"BY DRV CLR 

TRAP  C$PNTB 
#4,SP 

CKERR 

82$: 


1$: 
L10061: 
TRAP CSETST 


SEQ 0152 


sSET THE REGISTER COMPARE ERROR INDICATOR 
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TEST 20 RESET ATTENTION ‘A® By ° 


1 .SBTTL TEST 20 RESET ATTENTION ‘A* BY 'GO" 
5 j* VERIFY THAT THE +60 BIT CLEARS ONLY THE ATTENTION BIT OF THE 
4 * SEIZING PORT 
;* 
2 '* A. SET EACH PORT’S ATTENTION BIT, AND VERIFY THAT BOTH 
i * ATTENTION BITS ARE SET. 
3* 
9 '* B. SEIZE THE DRIVE THROUGH PORT ‘A BY WRITING 0°S 
10 ie ™NTO RMDS. 
3* 
\¢ 3* C. ISSUE A NOP COMMAND. 
;* 
14 3* D. RELEASE THE at THROUGH PORT ‘A’. yy! THAT THE 
15 3* ATTENTION BIT R PORT ‘A’ IS RESET, D THE 
1g 3* ATTENTION BIT FOR PORT ‘B* IS STILL "SET. 
3* 
18 
96 
97 056144 T20:: 
101 056144 005737 002340 TST DRVBAD zSYSTEM 0K?? 
056150 001402 BEQ 64$ STAKE BRANCH IF SO 
056152 104432 TRAP CSEXIT 
056154 001656 .WORD 110062-. 
3 REEAEAEAAAAAAEAAEEEEEETEAEAEEEEAEAEREREREAREARAREAEEAAERAAAAEAEREEAEEEEEAAEEEEEEE 
056156 64$: 
zSET ATTENTION BITS FOR BOTH PORTS 
056156 113777 002246 124216 MOVB PORTA,@RPCS2 =; SELECT PORT 
056164 005777 124214 67$: =—*TST @RPDS [MAKE SURE DRIVE AVAILABLE 
056170 001775 BEQ 67$ 
056172 012777 000017 124172 MOV #17, aRPCS1 
056200 013777 002250 124174 MOV PORTB,aRPCS2  ;SELECT THE OTHER PORT 
056206 005777 124172 65$: TST @RPDS [WAIT FOR DRIVE TO TIMEOUT 
056212 001775 BEQ 65$ BR IF DRIVE HASN'T TIMED OUT 
056214 012777 000017 124150 MOV #17,aRPCS1 ATA BIT 
056222 113777 002246 124152 MOVE  PORTA,@RPCS2 =; SELECT bon 
056230 005777 124150 66$: TST @RPDS sWAIT FOR ORI VES TO TIMEOUT 
056234 001775 BEQ 66$ [BR IF DRIVE HASN'T TIMED OUT 
B3 REERARRERAAERERAAEEAERAAEERAERARAARARERAERARAAEREREEEEEEEEHEEEEEEEEREEEEEEEE 
[CONFIRM THAT BOTH ATTENTION BITS ARE SET 
056236 113777 002246 124136 MOVB = PORTA, aRPCS2 ZSELECT PORT 
056244 013737 002246 002266 MOV PORTA.PTNBR MOVE PORT ADDRESS" TO LOCATION FOR TYPEOUT 
056252 005037 002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
056256 017737 124122 002332 MOV @RPDS ,BADDAT cit” CONTENTS OF RPDS 
56264 013737 002404 002334 MOV RPDS ,BADADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
056272 012737 100000 002336 MOV #ATA.EXPTED ti:WHAT REGISTER SHOULD BE 
56300 013737 002332 00234 MOV BADDAT, TMPO *MOVE REGISTER CONTENTS TO ‘TMPO* 
56306 042737 077777 00234 BIC #°CATA.TMPO SAVE SPECIFIED BITS 
056314 023737 002336 002342 CMP EXPTED, TMP 3COMPARE THE BITS 
056322 001427 BEQ F OK 
056324 013737 002332 002352 MOV BADDAT, TMP4 COPY "BAD DATA® 
056332 042737 100000 002352 BIC #ATA, TAPG SCLEAR THE MASKED BITS 
056340 053737 002352 002336 BIS TMP4 -EXPTED :*OR® WITH GOOD DATA FOR TYPEOQUT 


056346 104456 TRAP CSERHRD 
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.WORD 4 
;WORD €EM10 
<WORD ERR3 
MOV #FRMT17,<(SP) 
MOV #1,-(SP5 
MOV SP-RO 
TRAP  CSPNTB 
ADD #4,SP 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR sWAS ATTENTION SET FOR A?? 
BEQ +6 YES! ! 
JMP is 3NO = BYPASS hes! OF TEST 
MOVB = PORTB, aRPCS2 SELECT 
MOV PORTB.PTNBR MOVE” PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR c LEAR THE SCHECK ERROR’ INDICATOR 
MOV @RPDS, BADDAT cit” CONTENTS OF RPDS 
MOV RPDS ,BAD : FORM REGISTER ADDRESS OF ERROR MESSAGE 
MOV GATACEXPTED ig zWHAT REGISTER SHOULD 
MOV BADDAT, TMPO *MOVE REGISTER CONTENTS TO ‘TMPO* 
BIC #°CATA.TMPO SAVE SPECIFIED BITS 
CM EXPTED, THPO 3COMPARE THE 
MOV BADDAT TMP4 ZCOPY "BAD DATA’ 
BIC ATA, TAPG SCLEAR THE MASKED BITS 
BIS TmPa. EXPTED :'OR® WITH GOOD DATA FOR TYPEOUT 
TRAP  CSERHRD 
«WORD 4 
“WORD £M10 
“WORD ERR3 
V #FRMT17,-(SP) 
MOV #1,-(SP5 
MOV SP.R 
TRAP  C$PNTB 
ADD #4,SP 
COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR :WAS ATTENTION SET FOR 8?? 
BEQ +6 YES! ! 
JMP is :NO = BYPASS REST OF TEST 


FF RARER EEERE EEE EEEEEEREEEEAEREREEEEREEREREREREREEEEREREEAEEEEEEEEREREEEE 


:SEIZE THE DRIVE THROUGH PORT A 

MOVB PORTA,@RPCS2 _—s; SELECT PO 

MO PORTA. SEILZPT 3 STORE SEIZING PORT! $ ADDRESS 

aRPDS” sWRITE R 

MOVB _— PORTB, aRPCS2 :SELECT PORT B 

MOV ORTB,PTNBR MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
*OPPRT ‘OPPOSITE’ PORT DDRESS 

MOV @RPDS-BADDAT ste IF DRIVE SEIZED BY 


MOV RPDS,BADADR sGENERATE BAD REGISTER PARDRESS 
CLR EXPTED 3REGISTER SHOULD BE ZER 

CMP EXPTED.BADDAT 71S THE REGISTER ZERO 

BEQ 2$ :BR IF IT IS 


m 12 
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TEST 20 RESET ATTENTION ‘A’ BY ‘GO’ 
056664 104456 TRAP C$ERHRD 
000001 .WORD 1 
056670 005705 “WORD M4 
056672 012576 ;WORD ERR2 
096674 000137 060032 JMP 1$ ZBYPASS REST OF THE SUBTEST 
056700 113777 002246 123474 MOVB PORTA,@RPCS2 ——_:SELECT PORT A 
056706 013737 002246 002266 MOV PORTA, PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
056714 017737 123464 002332 MOV @RPDS BADDAT ° :SEE IF SEIZING PORT SEES CORRECT STATUS 
056722 042737 020005 00233 BIC #OM'PIPLILV, BAD ITS 
0567 O1e737 011700 002336 MOV #MOL LPGH!DPR!DRY VV. sEXPTED sEXPECTED STAT 
056736 013737 002336 002344 MOV EXPIED, TMP1 USE G 
056744 005137 002344 COM | COMPLEMENT THE EXPECTED STATUS 
056750 013737 002332 002342 MOV BADDAT TMPO 3 SAVE THE er TATU 
056756 043737 002344 002342 BIC TAPO LEAR UNWANTED BITS 
056764 023737 002336 002342 CMP pres. TMPO TARE THEE EXPECTED STATUS BITS SET ? 
056772 001404 BEQ 73$ <BR IF THEY ARE 
056774 104456 TRAP  CSERHRD 
056776 000002 .WORD 
057000 005736 “WORD EMS 
057002 012654 SWORD ERR3 
057004 73$: 
FF ARERR EEEEAEEEEEEEEEEEEEAEEEEAREREREREREEEEEEEEEREEEEEEEEEEEEEEEREREEEEEEE 
s ISSUE NOP COMMAND TO PORT A 
057004 012777 000001 123360 MOV #1,aRPCS1 
g SAREE AAAEEAEREREEREEEEEREEEEEREEERAEEREREEEEEREEEEREREEEEEEREEEEEEEEREEEEREEEE 
3 VERIFY THAT ATTENTION FOR PORT A CLEARED 
057012 005037 002276 CLR CKERR LEAR THE "CHECK ERROR® INDICATOR 
057016 017737 123362 002332 MOV @RPDS ,BADDAT cit’ CONTENTS 
057024 013737 002404 002334 MOV RPDS ,BADADR f ORM REGISTER OODRESS OF ERROR MESSAGE 
057032 005037 002336 CLR EXPTED zWHAT REGISTER SHOULD BE 
057036 013737 002332 002342 MOV BADDAT, TMPO ‘MOVE REGISTER CONTENTS TO ‘TMPO* 
057044 042737 077777 002342 BIC #*CATA.TMPO SAVE SPECIFIED BITS 
057052 023737 002336 002342 CMP EXPTED. TMPO :COMPARE THE BITS 
057060 001427 BEQ *BR IF OK 
057062 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
057070 042737 100000 002352 BIC HATA, TAPG [CLEAR THE MASKED BIT 
057076 053737 002352 002336 BIS TMP4, *EXPTED :°OR® WITH GOOD DATA For TYPEOQUT 
057104 104456 TRAP C$ERHRD 
057106 3 «WORD 3 
057110 011734 “WORD 
057112 013262 “WORD ERR10 
057114 012746 003716 MOV #FRMT17,-(SP) 
057120 012746 000001 MOV #1,-(SP5 
057124 010600 MOV SP*RO 
057126 104414 TRAP  C$PNTB 
057130 062706 000004 ADD #4,SP 
057154 005137 002276 Pe COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


FERRARA EERE REESE AEEEEEEEEAEEEAAEEAERERERAAAAERAREEAEEEREREEEEEEEEREE EEE 


sRELEASE THE DRiVE FROM PORT A 
057140 113777 002246 123234 MOVE PORTA, @RPCS2 sSELECT PORT A 








CZRJINAO RPO? DUAL PORT T 


12 
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TEST 20 RESET ATTENTION GO’ 


Booo1s 128210 





SEO 0156 | 


PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,aRPCS1 zISSUE RELEASE THROUGH PORT A 


sSTART THE TIMER 


3 2 
MWS = WW 
~“ ~“ >! 


RSS 


sosegs=cege=seseasceses= 
RUVVIIAAUWS RUAWSNES 
WSUMNNNS 


— = 
Monon 
N 


S 





oo 





TIME sCLEAR THE ELAPSED TIME COUNTER 
a an zSET WATCH TO 40. MS 


76$ 


THAT THE DRIVE IS IN NEUTRAL 


RELERR ICLEAR THE "RELEASE ERROR ' INDICATOR 

RPDS BADADR 3FORM THE ADDRESS OF RPDS FOR TYPEOUT 

#MOL'PGM'DPR!IDRY!VV,EXPTED ;COMPARISON CONSTANT 

PORTA,@RPCS2 ;SELECT PORT A. 
S$. TMP >GET THE DRIVE STATUS REGISTER FROM PORT A. 

#PIP'WRL'OM!ILV,TMP2 | _sCLEAR DONT CARES 

TMP2 , THPO :COPY IT INTO ° 

WATA'VV,TMPO | :CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTB,@RPCS2 ;SELECT PORT 


@RPDS, TMPS GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP'WRLIOM!ILV,TMP3 | :CLEAR DONT CARES 

TMP3, THP :COPY IT INTO ‘TMP1° 

#ATA'VV,TMP1 | CLEAR PORT DEPENDENT BITS FROM THE COPY 
THO, THP i1s THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TMPO [REGISTERS ARE THE SAME: ARE THEY ZERO ? 
79$ ‘BR IF NOT 

CSERHRD 

M46 

ERR15 

#FRMT17,=(SP) 

#1,-(SP) 

SP,RO 

CS$PNTB 

#4,SP 


81 sBYPASS THE REST OF THE CHECKS 

TMP2 ,BADDAT :SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,@RPCS2 SELECT PORT B. 

imo saat LY sae EQ 0 FROM PORT A. 

PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
TMP3,,BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 

PORTA, @RPCS2 sSELECT PORT A. 

TMP1 SEE _IF STATUS EQ ZERO FROM PORT B. 


79$ : 

#~1,RELERR [SET "RELEASE ERROR’ INDICATOR 
#11.aRPCS1 ‘CLEAR THE DRIVE 

#13, aRPCS1 SRELEASE THE DRIVE 

CSERHRD 

EM26 


AA NE -etnchae m eet ee sages ee 
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NLAS 


& 

it?s 
NS 
o= 
an 


003716 
000001 


002336 


003471 
000001 


003522 
000001 


000004 


002250 
002250 
00227 

12247, 

002404 
100000 
002332 
077777 
002336 


002332 
100000 
002352 


600008 


002332 
002266 
002332 
002332 


002332 
002266 
002332 
002332 


122506 
002266 


002332 


79$: 


80$: 


81$: 


#FRMT17,=(SP) 
#1,-(SP5 
P’RO 

CSPNTB 

#4,SP 

THe BADDAT 


HATA, BADDAT 
EXPTED, BADDAT 


CSERHRD 
11 
EM7 


ERRS 
#FRMT14,=(SP) 
#1,<(SP5 


SPR 

CS$PNTB 

#4, 

TMP3 ,BADDAT 


ADDA 
EXPTED ,BADDAT 
CSERHRD 
12 
EM7 


ERRS 
#FRMT15,=(SP) 
#1,=(SP5 


SP,RO 
CS$PNTB 
#4 ,SP 
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;LOOK FOR + FAILURES WHEN RPDS READ 
7CHANGE PORT NUMB 
3DON'T CHECK THE ATTN BIT 
LL BITS OK ? 
TBR IF OK FROM PORT A. 


{CHANGE POR FOR BIT FAILURES = FROM PORT B. 
sDON'T CHECK 1HE ATTN BIT 
iSEE IF READ OK FROM PORT B. 


SREREEEEAAEEAAAAAEEEEAEEEAEEAERERAAAAAAAAAAERAAAEAAEAARAAAEREREREREEEEEAEEEEEEEE 


VERIFY THAT ATTENTION FOR PORT B IS STILL SET 


MOVB 


PORTB,aRPCS2 
di -PTNBR 


c 

@RPDS ,BADDAT 
RPDS ,BADADR 
#ATA-EXPTED 

DDAT, THPO 

#*CATA.TMPO 
EXBTED, THPO 
BADDAT, TMP4 


MATA, TAPG 
TMP4 ,EXPTED 
SERHRD 

EM62 

ERR4 

#FRMT17,=(SP) 

#1,-(SP5 
SP‘RO 


e 


sSELECT PO 


TB 
;MOVE’ yf ADDRESS TO LOCATION FOR TYPEOUT 


EAR THE "CHECK ERROR’ INDICATOR 
-GET CONTENTS OF RPDS 
:FoRM REGISTER ADRESS OF ERROR MESSAGE 


tee HOULD BE 

sMOVE REGISTER oo TO "TMPO* 
; SAVE tae tae BITS 

sCOMPARE THE BITS 

SCOPY 


"BAD DATA 
:CLEAR THE MASKED BITS 
:"OR® WITH GOOD DATA FOR TYPEOUT 


SEQ 0157 


ee 


13 | 
CZRJNAO RPO? DUAL PORT TEST MACRO v04.00 1-JAN-83 15:44:57 PAGE 46-5 SEQ 0158 © 
TEST 20 RESET ATTENTION ‘A’ BY ‘GO’ 


060020 104414 TRAP CSPNTB 

060022 062706 000004 ADD #4,SP ! 

tn: 005137 002276 c CKERR sSET THE REGISTER COMPARE ERROR INDICATOR f 
0032 ; 

$6035 104401 TRAP CSETST 
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-SBTTL TEST 21 RESET ATTENTION ‘B’* BY ‘'GO’* TEST 
;* VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 


:* SEIZING PORT. 

:* A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
i* ATTENTION BITS ARE SET. 

[* B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S 

3* INTO RMDS. 

;* 

:* C. ISSUE A NOP COMMAND. 

3* 

[* D. RELEASE THE FRIVE THROUGH PORT ‘B’. VERIFY THAT THE 
* ATTENTION BIT FOR PORT 'B' IS RESET. THE 

:* ATTENTION BIT FOR PORT ‘A’ IS STIL get" , 

T21:: 


TST DRVBAD SYSTEM OK?? 
BEQ $ 3 TAKE BRANCH IF SO 


e 
REREEAAEEEERAERAEAEEEEREREEPRERERAEAREAAEEERAAEEEREEEEEEREEERAERAEREEREEEREEEE 


64$ 
:SET ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,@RPCS2 ;:SELECT PORT A 

67$: —«*TST @RPDS [MAKE SURE DRIVE AVAILABLE 
BEQ 67$ 
MOV #17,@RPCS1 
MOV PORTB,aRPCS2 SELECT THE OTHER PORT 

65$: TST @RPDS “WAIT FOR DRIVE TO TIMEOUT 
BEQ 65$ ‘BR IF DRIVE HASN'T TIMED OUT 
MOV #17, aRPCS1 sFOR BIT 
MOVB PORTA,@RPCS2 =; SELECT PORT A AGAIN 

66$: ‘TST @RPDS ‘WAIT FOR DRIVE TO TIMEOUT 
BEQ 66$ ‘BR IF DRIVE HASN'T TIMED OUT 


eeHRRNKeeeeeeReAeeeeeeeeeeeeeeeeaKeeeeeeKeteeeeeeedeereareeneeeeeeeerert 


> CONFIRM THAT BOTH ATTENTION BITS ARE SET 
MOVB = PORTB, aRPCS2 :SELECT 
PORTB,PTNBR MOVE PORT ADDRESS” TO LOCATION FOR TYPEOUT 
CKERR AR TH HE "CHECK ERROR’ INDICATOR 
MOV aRPDS BADDAT :GET CONTENTS OF RPDS 
S.BAD DADR :FoRn REGISTER ADDRESS OF ERROR MESSAGE 


MOV PATA PTED ; G L 
MOV BADDAT. XTMPO thov E REGISTER CONTENTS TO *TMPO 
BIC #*CATA,TMPO SAVE sores tae BITS 


CMP EXPTED, TMPO sCOMPARE THE BITS 

BEQ 6 3BR IF OK 

MOV ree TMP4 ;COPY “BAD DATA‘ 

BIC A, TMP4 CLEAR THE MASKED BITS 

BIS Tapa’ EXPTED :"OR* WITH GOOD DATA FOR TYPEOUT 


TRAP CSERH 
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TEST 21 RESET ATTENTION 'B'’ BY GO" 

060240 000004 .WORD 4 
060242 146 “WORD £M10 
060244 012654 ;WORD ERR3 
060246 012746 003716 MOV #ERMT17,-(SP) 
060252 012746 000001 MOV #1,-(SP5 
060256 010600 MOV SP°RO 
060260 104414 TRAP CSPNTB 
060262 062706 000004 ADD 
pete es 005137 002276 688 COM tree ;SET THE REGISTER COMPARE ERROR INDICATOR 
060272 005737 002276 TST CKERR sWAS ATTENTION SET FOR 8?? 
060276 001402 BEQ +6 ; VES!! 

300 000137 061722 JMP is NO = BYPASS REST OF TEST 
060304 113777 002246 122070 MOVB _—s PORTA, aRPCS2 :SELECT PORT A 
060312 013737 002246 002266 MOV PORTA,PTNBR :MOVE” sof ADDRESS TO LOCATION FOR TYPEOUT 
060320 005037 002276 CLR CKERR sCLEAR THE ty ERROR’ INDICATOR 
060324 017737 122054 002332 MOV @RPDS ,BADDAT cite CONTENTS OF RPDS 
060332 013737 002404 002334 MOV RPDS BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
060340 012737 100000 002336 MOV #ATA,EXPTED :;;WHAT REGISTER SHOUL 
060346 013737 002332 002342 MOV BADDAT, TMPO sMOVE REGISTER Saha TO *TMPO’ 
060354 042737 077777 002342 BIC #*CATA.TMPO SAVE SPECIFIED BITS 
060362 023737 002336 002342 CMP EXPTED. TMPO ZCOMPARE THE BITS 
060370 001427 BEQ 70$ 7BR IF OK 
060372 013737 002332 002352 MOV BADDAT, TMP4 :COPY ‘BAD DATA’ 
060400 042737 100000 002352 BIC MATA, THPG CLEAR THE MASKED BITS 

06 053737 002352 002336 BIS TMP4 ,EXPTED ;"OR® WITH GOOD DATA FOR TYPEOUT 
060414 104456 TRAP  CS$ERHRD 
060416 000004 .WORD 4 

20 006146 -WORD €EM10 
060422 012654 <WORD ERR3 

24 012746 003716 MOV #FRMT17,-CSP) 
060430 012746 000001 MOV #1,-(SP) 
060434 010600 MOV SP.RO 
060436 104414 TRAP CS$PNTB 
060440 062706 000004 ADD #4,SP 
060444 005137 002276 a COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
060450 005737 002276 TST CKERR zWAS ATTENTION SET FOR A?? 
060454 001402 BEQ +6 YES! ! 
060456 000137 061722 JMP i$ [NO = BYPASS REST OF TEST 

SF FARRAR AAAEEAAAEAEEERER AREA EEEEERAEEREREAEEEEEEEREAEEREREEREEEEREEAEEREREREEEEE 
:SEIZE THE DRIVE THROUGH PORT B 

060462 113777 002250 121712 MOVB PORTB,aRPCS2  ;SELECT PORT B 
060470 013737 002250 002270 MOV PORTB, SEILZPT :STORE SEIZING PORT'S ADDRESS 
060476 005077 121702 CLR @RPDS WRITE RPDS 
060502 113777 002246 121672 MOVB = PORTA, aRPCS2 ZSELECT PORT A 
060510 013737 002246 00226 MOV PORTA, PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
060516 013737 002266 00227 MOV PORTA,OPPRT ‘OPPOSITE’ PORT ADD 
060524 017737 121654 00233 MOV @RPDSBADDAT :SEE IF DRIVE SEIZED BY PORT B 
Stes lace Gisets SOS Ganon sess, ba eaten toss 
060544 023737 002336 002332 CMP XPTED,BADDAT :1S THE REGISTER ZERO 
060552 001406 BEQ Os :BR IF IT 1S 
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TEST 21 RESET ATTENTION 'B'’ BY "GO" TE 

060554 104456 TRAP CSERHRD 

060556 1 WORD 

060560 005705 ;WORD EMG 

060562 01257 <WORD ERR2 

960564 000137 061722 _ JMP 1$ :BYPASS REST OF THE SUBTEST 

060570 113777 002250 121604 MOVB = PORTB,, aRPCS2 ;SELECT PORT B 

060576 013737 992250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

060604 017737 121574 002 MOV @RPDS.BADDAT  ;SEE IF SEIZING PORT SEES CORRECT STATUS 

060612 042737 020005 002332 BIC #OM!PIP!ILV AT LEAR DONT CARE BITS 
20 012737 011700 002336 MOV #MOL ! PG GHIDPRIDRY!WV, EXPTED sENPECTED STATUS 
26 013737 002336 002344 MOV EXPTED, THP1 ;USE GOO AA 

060634 005137 002344 COM COMPLEMENT THE EXPECTED STATUS 

060640 013737 002332 002342 MOV SADDAT, TMPO ;SAVE THE ACTUAL STATUS 

060646 043737 002344 002342 BIC TMP1, TAPO CLEAR UNWANTED BIT 

060654 023737 002336 002342 CMP EXPTED, TMPO ‘ORE THE EXPECTED STATUS BITS SET ? 

060662 001404 BEQ 73$ ?BR IF THEY ARE 

060664 104456 TRAP  CSERHRD 

060666 000002 «WORD 2 

060670 005736 “WORD EMS 

060672 012654 “WORD ERR3 

060674 73$: 


FF RAR AAAAAEAREREEEEEEEEAEEEEEAAEEEEEEEEEEREEEEEEAAEERAAEREREEAEEEEEEREEEEEEE 


ISSUE NOP COMMAND TO PORT B 
060674 012777 000001 121470 MOV #1, aRPCS1 


FRRAAAAAAARARAEEREEEEAEAAEER AE EEAEAAEEAAEAEEEAAEREREREREEAEREREEREREEEEEAEEEEEEE 


: VERIFY THAT ATTENTION FOR PORT B CLEARED 


060702 005037 002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
060706 017737 121472 002332 MOV @8PDS ,BADDAT sce CONTENTS OF 

060714 013737 002404 002334 MOV RPDS,BADADR ;FORM REGISTER OODRESS OF ERROR MESSAGE 
060722 005037 002336 CLR EXPTED sWHAT REGISTER 

060726 013737 002352 002342 MOV BADDAT, TMPO [MOVE REGISTER CONTENTS TO "TMPO* 
060734 042737 077777 002342 BIC #*CATA.TMPO SAVE SPECIFIED BITS 

060742 023737 002336 002342 CMP EXBTED, *TMPO sCOMPARE THE BIT 

060750 001427 BEQ 4 gz OK 

060752 013737 002332 00235 MOV BADDAT, TMP [COPY "BAD DATA’ 

060760 042737 100000 00235 BIC MATA, TAP4 :CLEAR THE MASKED BITS 

060766 053737 002352 002336 BIS TMP4 ,EXPTED :*OR*® WITH GOOD DATA FOR TYPEOUT 
060774 106456 TRAP SERHRD 

060776 3 WORD 

061000 0117 “WORD 

061002 013262 .WORD ERR10 

061004 012746 003716 MOV #FRMT17,-(SP) 

061010 012746 000001 MOV #1,-(SP5 

061014 010600 MOV Pp. 

061016 104414 TRAP C$PNTB 

061020 062706 000004 ADD #4,SP 

961024 005137 002276 “i COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 


FF TRAE AAAAAAAAAEEEERESAHEEAEEAEAAAEEAAEAAAEAAAEEAAEAAAAEAAAEAEERERERERERE EEE 


sRELEASE THE DRiVE FROM PORT B 
061030 113777 002250 121344 MOVB PORTB,@RPCS2 SELECT PORT B 
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TEST 21 RESET ATTENTION 'B’ BY GO” TEST 

061036 013737 002259 092266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

061044 012777 0 MOV #13,aRPCSi ;ISSUE RELEASE THROUGH PORT B 

:START THE TIMER 

061052 005037 002304 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 

061056 012737 000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. MS 

061064 005737 002306 76$: TST WATCH 

061070 001375 BNE 76$ 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 
005037 a tes CLR RELERR sCLEAR THE ‘RELEASE aes . sen OR 


061072 

961076 013737 002404 002334 MOV RPDS, BADADR iF M THE ADDRESS OF RPDS FOR TYPEOUT 
061104 012737 011700 002336 MOV #MOL'PGM'DPRIDRY'VV,EXPTED ;COMPARISON CONSTANT 

061112 113777 002246 lele6e MOVB = PORTA, aRPCS2 SELECT PORT’ A. 

061120 017737 121260 002346 MOV S$; TMP? THE DRIVE STATUS REGISTER FROM PORT A. 
061126 042737 024005 002346 BIC #PIP!URL OM! ILV, tne, ZCLEAR DONT CARES 

061134 013737 002346 002342 MOV Tape. TH Y IT INTO *TMPO* 

061142 042737 100100 00234 BIC WATA'VV,TMPO © CLEAR PORT DEPENDENT BITS FROM THE COPY 
061150 113777 002250 121224 MOVB = PORTB, Vaares2 :SELECT PORT B. 

061156 017737 121222 002350 MOV PDS, TMP T THE DRIVE STATUS REGISTER FROM PORT B. 
061164 042737 024005 002350 BIC #PIP'URL OM! ILV, inp 3 _3CLEAR DONT CARES 

061172 013737 002350 002344 MOV TMP3, TMP1 :COPY IT INTO *TMP1° 

061200 042737 100100 002344 BIC WATA‘VV,TMP1 | :CLEAR PORT DEPENDENT BITS FROM THE COPY 
061206 023737 002342 002344 CMP TMPO, TMP1 :1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
061214 901021 BNE 77$ :BR IF 

061216 005737 002342 TST TMPO sReGISTERS ARE THE SAME: ARE THEY ZERO ? 
061222 001073 BNE 79$ :BR IF NO 

061224 104456 TRAP  § CSERHRD 

061226 000006 «WORD 6 

061230 010751 “WORD 

061232 013534 WORD 

061234 012746 003716 MOV #FRMT17,-(SP) 

061240 012746 000001 MOV #1,-(SP5 

061244 010600 MOV SP 

061246 104414 TRAP  (C$PNTB 

061250 062706 000004 ADD #4, 

061254 000137 061556 JMP 81s sBYPASS THE REST OF THE CHECKS 

061260 013737 002346 002332 77$: # MOV TMP2 ,BADDAT 3SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
061266 013737 002250 002266 MOV PORTS, PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
061274 113777 002250 121100 MOVB PORTB.@RPCS2 :SELECT PORT B. 

061302 005737 002342 TST TMPO [SEE IF STATUS EQ 0 FROM PORT A. 

061306 001414 BEQ $ 7BR IF ZERO 

061310 013737 00224 002266 MOV PORTA, PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
061316 013737 002350 002332 MOV TMP3, BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 

061324 113777 002246 121050 PORTA,aRPCS2  :SELECT PORT A 

061332 005737 002344 TST TMP1 [SEE IF STATUS’ EQ ZERO FROM PORT B. 

061336 001025 BNE 79$ [BR IF NOT 

061340 0127 7° 177777 002302 78$: MOV #1, RELERR iSeT "RELEASE ERROR’ INDICATOR 

061346 012777 11 121016 MOV #11. aRPCS1 CLEAR THE DRIVE 

061354 012777 13 121010 MOV #13. aRPCS! {RELEASE THE DRIVE 

061 104456 TRAP CSERWRD 

061364 900011 WORD 

061366 007313 “WORD M2 

061370 013214 ;WORD ERR 
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MOV #FRMT17,<(SP) 
MOV #1,<(5P5 
MOV P’RO 
TRAP  CSPNTB 
ADD SP 
79$: MOV TMP2 ,BADDAT 
MOV TA, PT 
BIC #ATA, BADDAT 
CMP EXPTED ,BADDAT 
BEQ 0 
TRAP  CSERHRD 
.WORD 11 
<WORD EM? 
<WORD ERRS 
V #FRMT14,-(SP) 
MOV 1,-(SP5 
MOV SP,RO 
TRAP  CSPNTB 
ADD 4,SP 
80$: MOV TMP3 ,BADDAT 
MOV PORTB,PTNBR 
BIC #ATA, BADDAT 
CMP EXPTED,,BADDAT 
BEQ ® 
TRAP § CSERHRD 
«WORD 12 
“WORD M7 
;WORD ERRS 
MOV #FRMT15,=(SP) 
MOV #1,-(SP) 
MOV SP, 
TRAP  C$PNTB 
ADD #4,SP 
81$: 


SS REAAAEAAAAERAAAEREEEEEEEEEEEE 


:VERIFY THAT ATTENTION FOR PO 


MOVB PORTA, @RPCS2 
MOV PORTA,PTNBR 
CLR CKERR 

MOV @RPDS ,BADDAT 
MOV RPDS ,BADADR 
MOV TA,EXPTED 
MOV DDAT, TM 
BIC #*CATA, TMPO 
bee EXPTED, TMPO 
MOV BADDAT , TMP4 
BIC TMP 
BIS TMP4 ,EXPTED 
TRAP SERHKD 

- WORD 

~WORD EM62 

- WORD 


ERR4 
MOV #FRMT17,=(SP) 
MOV #1,-(SP5 
MOV SP,RO 


sLOOK FOR BIT FAILURES WHEN RPDS READ 
sCHANGE PORT 

sDON'T CHECK THE ATTN BIT 

sALL BIT ? 


[BR IF OK FROM PORT A. 


CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
;CHANGE PORT NUMBER 


[DON'T CHECK THE ATTN BIT 
[SEE IF READ OK FROM PORT B. 
“BR IF OK 


SETAAAAAAAAAEAEREEEAAEAAEAEEAERAEAAAEREEEEREEEEEEE 


RT A IS STILL SET 


sSELECT PORT A 
MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


CLEAR THE "CHECK ERROR’ INDICATOR 
:GET CONTENTS OF RPDS 
:FORM REGISTER ADDRESS OF ERROR MESSAGE 
z::WHAT REGISTER SHOUL 
:MOVE REGISTER CONTENTS TO ‘TMPO* 
ZSAVE SPECIFIED BITS 
:COMPARE THE BITS 


[COPY “BAD DATA® 
[CLEAR THE MASKED BITS 
:"OR® WITH GOOD DATA FOR TYPEOUT 








SEQ 0164 


:SET THE REGISTER COMPARE ERROR INDICATOR 
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SEQ 0165 


BY MASSBUS I 


120436 


120412 
120414 


120370 
120372 


120356 
002266 


002352 
002352 
002336 





-SBTTL TEST 22 RESET ATTENTION "A* & °B* BY MASSBUS INIT 


seVERIFY THAT MASSBUS thee. RESETS BOTH PORT’S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL 


a 
j* A. SET THE ATTENTION BITS FOR BOTH PORTS. 
i B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
i C. Issue A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 
* ; 
T22:: 
TST DRVBAD :SYSTEM OK?? 
BEQ 64$ STAKE BRANCH IF SO 
TRAP CSExtT 
jjgtetsiternenennenesadeesensssensnscusesenensnsesssensnsssesesenenssseeesens 
64S: 
:SET ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,aRPCS2  ;SELECT PORT 
67$: ‘TST @RPDS [MAKE SURE DRIVE AVAILABLE 
BEQ 67$ 
MOV #17,aRPCS1 
MOV PORTB, a@RPCS2 SSELECT THE OTHER PORT 
65$: TST @RPDS WAIT FOR DRIVE TO TIMEOUT 
BEQ 65$ ?BR IF DRIVE HASN'T TIMED OUT 
MOV #17,@RPCS1 -FORCE ATA BIT 
MOVB PORTA,aRPCS2 ;SELECT PORT A AGAIN 
66$: TST @RPDS [WAIT FOR DRIVE TO TIMEOUT 
BEQ 66$ 7BR IF DRIVE HASN'T TIMED OUT 
eeeeeReeeeeeeReeeeeeeeeeeeeeeeaaaneeeeeeeaeeedeeeeneeeeeeneneeneeeeeneeetere 
:CONFIRM THAT BOTH ATTENTION BITS ARE SET 
MOVB _—— PORTA, aRPCS2 :SELECT 


TA 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
cK -¢ AR THE "CHECK ERROR’ INDICATOR 
@RPDS -BADDAT GET C 


MOV RPDS BAD : FORM REGISTER ADRESS OF ERROR MESSAGE 
MOV PATA. EXPTED : Fig EGIST 

MOV BADDAT,, TMPO MOVE REGISTER CONTENTS TO *TMPO 
BIC #*CATA,TMPO SAVE SPECIFIED BITS 


CMP EXPTED, THPO : COMPA RE THE BITS 
BEQ 6 OK 
MOV BADDAT , TMP4 {COPY "BAD DATA‘ 
BIC ATA, TAPS :CLEAR THE MASKED BITS 
I TMP4 ,EXPTED OR’ WITH GOOD DATA FOR TYPEOUT 
CSERHRD 
4 
10 
R3 
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062152 0627 
06518 0051 
0621 
ges! 005737 
062166 00140 
895170 13 
174 113777 
062202 013737 
062210 005037 


06 000004 
062310 006146 


$3 
SeSaar 


—fN Se 
WoW Ww 
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002332 
100000 
002352 


003716 
000001 


000004 
002276 
002276 
063346 
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04.00 1" JAN-B3 15:44:57 PAGE 48-1 SEQ 0166 
Y MASSBUS INIT 
TRAP  C$PNTB 
ADD #4,SP 
ae COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR zWAS ATTN BIT FOR PORT A SET ? 
BEQ +6 7BR IF IT WAS 
JMP is 3BYPASS REST OF TEST IF NOT 
120200 MOVB = PORTB, aRPCS2 L 
002266 MOV PORTB,PTNBR ;MOVE ‘PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
002332 MOV @RPDS, BADDAT -GET CONTENTS OF RPDS 
002334 MOV RPDS ,BAD stOnn REGISTER ADDRESS OF ERROR MESSAGE 
002336 MOV PATA EXPTED z2WHAT REGISTER SHOULD BE 
002342 MOV BADDAT, TMPO :MOVE REGISTER CONTENTS TO ‘TMPO* 
002342 BIC #°CATA,TMPO SAVE SPECIFIED BITS 
002342 CMP EXPTED, TMPO COMPARE, TH E BIT 
002352 MOV BADDAT, TMP4 :COPY "BAD DATA® 
002352 BIC HATA, THPG *CLEAR THE MASKED BITS 
002336 BIS TMP4, EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
TRAP  C$ERH 
.WORD 4 
“WORD €&M10 
“WORD ERR3 
MOV #FRMT17,-(SP) 
MOV #1,-(SP) 
MOV SP.RO 
TRAP CsPute 
ADD 4,SP 
“ COM CRERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
Ist CKERR ;WAS ATIN BIT FOR PORT B SET ? 
e* 
JMP is ‘BYPASS REST OF TEST IF NOT 
Z3 REAEAAAAEAAEAAAAEAEAAEEEEEEAAEAAERAAEEAEAEAEEAEREREAAREEAAAEEAEEERAEERERAEAEEEEEEEE 
ZVERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR ZCLEAR THE "RELEASE ERROR ° INDICATOR 
002334 MOV RPDS, BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
002336 MOV #111700,EXPTED :COMPARS ON CONST ANT 
120002 MOVB = PORTA, aRPCS2 SELECT PORT a 
002346 MOV aRPDS. OmPD GET THE DRIVE STATUS REGISTER FROM PORT A. 
002346 BIC #PIP!WRLIOM!ILV, inpe ZCLEAR DONT CARES 
002342 MOV TMP2. THPO :COPY IT’ INTO ‘TMPO* 
002342 BIC MATA'VV,TMPO = :CLEAR PORT DEPENDENT BITS FROM THE COPY 
117744 MOVB PORTB,aRPCS2 :SELECT PO 
2350 MOV : GET THE DRIVE STATUS REGISTER FROM PORT B. 
2350 BIC SPIPTORL (OM! ILV, IMPS :CLEAR DONT CARES 
002344 MOV TMP3, TMP 1 :COPY IT INTO ‘TMP1° 
002344 WATA'VV,TMP1 | :CLEAR PORT DEPENDENT BITS FROM THE COPY 
002344 TMPO, TMP1 tI1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 





TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
74$ BR IF NOT 
TRAP  CSERHRD 
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13 
ST MACRO V04.00 1-JAN-83 15:44:57 PAGE 4B-5 SEQ 0167 
A’ & 'B* BY MASSBUS INIT | 
WORD 
“WORD 
“WORD ERR15 
003716 MOV #FRMT17,<(SP) 
000001 MOV #1,-(SP5 
MOV 
TRAP  (C$PNTB 
000004 ADD #4,SP 
063022 JMP 76$ ZBYPASS THE REST OF THE CHECKS 
002346 002332 72$:  ## MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
002250 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
002250 117620 MOVB PORTB,a@RPCS2 :SELECT PORT 8. 
002342 Ist THPO SEE IF STATUS EQ 0 FROM PORT A. 
002246 002266 MOV PORTA, PTNBR [SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
002350 002332 MOV TMP3,BADDAT :"BAD DATA® FOR ERROR TYPE OUT 
002246 117570 MOVB PORTA,aRPCS2 $:SELECT PORT A. 
002344 Ist THe :SEE IF STATUS EQ ZERO FROM PORT B. 
177777 002302 73$: MOV #-1,RELERR SSET "RELEASE ERROR INDICATOR 
000011 117536 MOV #11, aRPCS1 [CLEAR THE DRIVE 
000013 117530 MOV #13, aRPCS1 SRELEASE THE DRIVE 
TRAP CSERHRD 
.WORD 9 
“WORD EM26 
“WORD ERRO 
003716 MOV #FRMT17,-(SP) 
000001 


MOV #1,-(SP5 

MOV SP,RO 

TRAP  C$PNTB 
000004 #4 s e 
002346 002332 74$: MOV TMP2 ,BADDAT zLOOK FOR BIT FAILURES WHEN RPDS READ 


| 
| 
| 
| 
| 
| 
| 
:CHANGE PORT NUMBER 
| 
| 


002246 002266 MOV PORTA, PTNBR 
002336 002332 CMP EXPTED ,BADDAT ALL BITS Ok ? 
BEQ 75$ 3BR IF OK FROM PORT A. 


TRAP CSERHRD 
WORD 11 
WORD EM7 

wO 


“WORD ERRS 
003471 MOV #FRMT14,-(SP) 
000001 MOV #1,=(SP) 
MOV SP. 
TRAP  C$PNTB 
000004 ADD #4,SP 
002350 002332 75$: MOV TMP3 ,BADDAT :CHECK RPDS FOR BIT FAILURES - FROM PORT B. 
002250 002266 MOV PORTB,PTNBR ‘CHANGE PORT NUMBER 
002336 002332 CMP XPTED,BADDAT :SEE IF READ OK FROM PORT B. 
BEQ st [BR IF OK 
TRAP  CSERHRD 
.WORD 12 
WORD ERRS 
003522 MOV #FRMT15,-(SP) 
000001 mov #1,-(SP5 


000004 ADD #4,SP 


| 


TT 
RESET ATTENTION 
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ov 
* BY MASSBUS | 
768: 
TST RELERR ;WAS DRIVE IN NEUTRAL ? 
BEQ +6 F IT WAS 
JMP is ‘BYPASS RESET OF TEST 
 RERERERERRERERERAERERAEREREREEAERERAREREEREREREREEREREEEERERREREREEERERERHEEE 
t]SSUE THE MASSBUS INIT 
117340 MOV #CLR,@RPCS2 yISSUE A MASSBUS INIT 
FERRARA EEEEEEEEEEEEEREEEEEAEAEAAREEAEEEAEREREREAEREREREEEEEREEEEEEEEEEEE 
tCHECK THE ATTENTION BITS OF BOTH PORTS 
117332 MOVB = PORTA, aRPCS2 :SELECT PORT A 
002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR -CLEAR THE "CHECK ERROR’ INDICATOR 
002332 MOV @RPDS,BADDAT ;GET CONTENTS OF RPDS 
002334 MOV RPDS ,BADADR sfoRn REGISTER ADDRESS OF ERROR MESSAGE 
CLR EXPTED sWHAT REGISTER SHOULD BE 
002342 MOV BADDAT, TMPO MOVE REGISTER CONTENTS TO ‘TMPO' 
002342 BIC #°CATA.TMPO SAVE SPECIFIED BITS 
002342 CMP EXPTED, TMPO :COMPARE THE BITS 
BEQ <BR IF OK 
002352 MOV BADDAT, TMP4 [COPY "BAD DATA® 
002352 BIC HATA, THP4 :CLEAR THE MASKED BITS 
002336 BIS TMP4 .EXPTED :*OR* WITH GOOD DATA FOR TYPEOUT 
TRAP C$ERHRD 
.WORD 3 
“WORD EMS1 
“WORD ERR3 
MOV #FRMT17,-(SP) 
MOV #1,-(SP5 
MOV 
TRAP C$PNTB 
ADD #4,SP 
ate COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
117170 MOVB = PORTB, aRPCS2 ZSELECT PORT B 
002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR CLE att; "CHECK ERROR’ INDICATOR 
002332 MOV @RPDS,BADDAT ;GET NTS OF RPDS 
002334 MOV RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
CLR EXPTED zWHAT REGISTE 
002342 MOV BADDAT, TMPO “MOVE REGISTER CONTENTS TO "TMPO' 
002342 BIC #°CATA.TMPO SAVE SPECIFIED BITS 
002342 CMP XPTED. TMPO :COMPARE THE BITS 
BEQ ‘BR IF OK 
002352 MOV BADDAT TMP4 [COPY "BAD DATA 
002352 BIC HATA, TAPG [CLEAR THE PAIRED BITS 
002336 BIS TMP4 .EXPTED :*OR' WITH GOOD DATA FOR TYPEOUT 
TRAP SERHRD 
WORD 
SWORD EMS1 
“WORD ERR3 
V #FRHT17,~(SP) 
MOV #1,-(SP5 


SP,RO 
TRAP CSPNTB 





ee | 








RO v04.00 ae 15:44:57 PAGE 4e-4 


7 DUAL PORT TEST MAC 
B* BY MASSBUS INIT 


se RPO 
TEST 22 RESET ATTENTION 


ADD #4 ,SP 


063336 062 000004 
06 005137 002276 COM CKERR 
bes : 
96 063346 L10064: 
pe ssce 104401 TRAP CSETST 


N 13 


sSET THE REGISTER COMPARE ERROR INDICATOR 
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ST MACRO V04.00 a 15:44:57 PAGE 49 SEQ 0170 
A’ BY WRITING RPA 


CZRJNAO RPO? DUAL PORT TE 
TEST 235 RESET ATTENTION ° 


1 .SBTTL TEST 23 RESET ATTENTION °A’ BY YRITING RPAS 
: :*VERIFY THAT ATA BIT CAN BE RESET BY WRITING THE APPROPRIATE 
4 ie BIT IN THE ATTENTION SUMMARY REGISTER (RPAS). 
te 
6 :* A. SET ATTENTION BITS IN BOTH PORTS, VERIFY THAT BOTH 
c te ARE SET. 
3* 
1 3* B. VERIFY THAT DRIVE IS IN NEUTRAL. 
3* 
11 t* (C. WRITE PORT ‘A* ATTENTION BIT IN RPAS, VERIFY 
\¢ 3* THAT ONLY PORT ‘A* ATTENTION BIT IS RESET. 
3% 
14 
99 062550 T23:: 
103 063350 005737 002340 TST DRVBAD sSYSTEM 0K?? 
063354 001402 BEQ 64$ STAKE BRANCH IF SO 
063356 104432 TRAP  C$EXIT 
3 0012 «WORD 110065-. 
z SRAEREKAERAKEEAERAEEAEAEAEEEEAEREEAEAAAAEEAREEAARAEEEEEEAAAEEEAEEREREREEEREEEEE 
063362 : 
sSET ATTENTION BITS FOR BOTH PORTS 
063362 113777 002246 1170'2 MOVB PORTA, @RPCS2 sSELECT PORT A 
063370 005777 117010 67$:  =‘TST a@RPDS [MAKE SURE DRIVE AVAILABLE 
063374 001775 BEQ 67$ 
063376 012777 900017 116766 MOV #17,aRPCS1 
063404 13777 002250 1167 MOV PORTE, aRPCS2 sSELECT THE OTHER tr 
063412 005777 116766 65$: TST aRP WAIT FOR DRIVE TO TIMEOUT 
063416 001775 BEQ ages [BR IF DRIVE HASN'T TIMED OUT 
063420 012777 000017 116744 MOV #17,aRPCS1 BIT 
063426 113777 002246 115746 MOVB PORTA. @RPCS2 -: SELECT PORT A AGAIN 
063434 005777 116744 66$:  =‘TST arP ‘WAIT FOR DRIVE TO TIMEOUT 
063440 001775 BEQ aes ‘BR IF DRIVE HASN'T TIMED OUT 
ITITITI TTI T TLL LL LLL LLL Lite LL Eee RAEEAAEAEEEEEEEE 
SCONFIRM THAT BOTH ATTENTION BITS ARE SET. 
063442 113777 002246 116732 MOVB ORTA, aRPCS2 :SELECT PORT 
063450 013737 002246 002266 MOV PORTA.PTNBR HOVE, PORT "ADDRESS" TO LOCATION FOR TYPEOUT 
063456 005037 wee? CLR CK LL "CHECK ERROR’ INDICATOR 
063462 017737 116722 002332 MOV @RPAS BADDAT cite R 
063470 013737 002410 002334 MOV RPAS ,BAD f ORM REGISTER ADDRESS OF ERROR MESSAGE 
063476 013737 902260 002336 MOV ASR1 EXPTER WHAT REGISTER SHOULD BE 
063504 023737 002336 002332 CMP —« EXPTED ,BADDAT it THE REGISTER OK ? 
063512 001416 BEQ 68$ :BR IF OK 
063514 104456 TRAP  CSERHRD 
063516 000004 . WORD 
063520 006146 ;WORD M10 
063522 012654 “WORD ERR3 
063524 012746 003716 MOV ge RATIZ -(SP) 
063530 012746 000001 MOV (SPS 
563534 010600 
067536 104414 TRAP sia 
063540 0627 000004 ADD SP 
063544 137 002276 oo COM freer ySET THE REGISTER COMPARE ERROR INDICATOR 
063550 005737 002276 TST CKERR sARE BOTH BITS SET? 
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creme RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 49-1 SEQ 0171 
RESET ATTENTION °A*® BY WRITING RPAS 


063554 001402 BEQ +6 7BR_YES 
063556 000137 064450 JMP 4$ sBYPASS REST OF TEST 
sCHECK IF NEUTRAL 
sVERIFY THAT THE DRIVE IS IN NEUTRAL 


002302 CLR RELERR sCLEAR THE ‘RELEASE ERROR °* INDICATOR 


Oo 
~m 


063562 005037 

063566 013737 002404 002334 MOV RPDS,BADADR ‘FORM THE ADDRESS OF RPDS FOR TYPEOUT 

063574 012737 111700 002336 MOV #111700,EXPTED :COMPARSION CONS TANT 

063602 113777 002246 116572 MOVB PORTA,aRPCS2  :SELECT POR 

063610 017737 116570 002346 MOV DS, TMP2 :GET THE DRIVE "STATUS REGISTER FROM PORT A. 

063616 042737 024005 002346 BIC #PIP!URL OM! ILV, TMP :CLEAR DONT CARES 

063624 013737 002346 00234 MOV TMP. TH COPY IT’ IN 

063632 042737 100100 002342 BIC #ATA‘VV, TMPO CLEAR PORT pPEPENDENT BITS FROM THE COPY 

063640 113777 002250 116534 MOVB PORT .ARPCS2 :SELeCT 

063646 017737 116532 002350 MOV @RPDS. TMPS THE PORIVE “STATUS REGISTER FROM PORT B. 

063654 042737 024005 002350 BIC SrIPIORL ‘OM!ILV, ines ZCLEAR DONT CARES 

063662 013737 002350 002344 MOV TMP3, TMP 1 :COPY IT INTO ‘TMP1° 

063670 042737 100100 002344 BIC WATA'VV,TMP1 § :CLEAR PORT DEPENDENT BITS FROM THE COPY 

063676 023737 002342 002344 CMP TMPO, TMP1 ‘1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

063704 001021 BNE 70$ :BR IF NOT 

063706 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 

063712 001073 BNE 72$ <BR IF NOT 

063714 104456 TRAP  CSERHRD 

063716 000006 «WORD 6 

063720 010751 ;WORD EM46 

063722 013954 ;WORD ERR1S 

063724 012746 003716 MOV #FRMT17,=(SP) 

063730 012746 000001 MOV #1,-(SP5 

063734 010600 MOV SP,RO 

063736 104414 TRAP C$PNTB 

063740 062706 090004 ADD #4,SP 

063744 000137 064232 JMP 4 :BYPASS THE REST OF THE CHECKS 

063750 013737 002346 002332 70$: #§ MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

063756 013737 002250 002266 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3764 113777 002250 116410 MOVB PORTB,@RPCS2 :SELECT 

063772 005737 002342 TST TMPO :SEE IF erarue: EQ 0 FROM PORT A. 

063776 001414 BEQ 71$ :BR IF ZERO 

064 013737 02246 002266 MOV PORTA, PTNBR : SEIZING POR T IF TEST SHOWS DRIVE NOT IN NEUTRAL 

064 013737 002350 002332 MOV TMP3,BADDAT :"BAD DATA’ 7fOR ERROR TYPE OUT 

064014 113777 002246 116360 MOVB PORTA,a@kPCS2 :SELECT PORT 

064022 005737 002344 TST TMP1 :SEE IF STATUS “EQ ZERO FROM PORT B. 

ats Pa 177777 002302 71$ Sov oe RELERR oer RELEASE ERROR" INDICATOR 

064036 012777 000011 116326 MOV #11. aRPCS1 [CLEAR THE DRIVE 

064044 012777 000013 116320 MOV #13. aRPCS1 SRELEASE THE DRIVE 

064052 104456 TRAP CSERHRD 

064054 000011 «WORD 9 

064056 007313 “WORD EM26 

064060 013214 -WORD ERR 

064062 012746 003716 MOV #FRMT17,-(SP) 

064066 012746 000001 MOV #1,-(SP5 

064072 010600 MOV 

064074 104414 TRAP  (C$PNTB 

064076 062706 000004 ADD 4,SP 

064102 013737 002346 002332 72$:  ##MOV TMP2 ,BADDAT ;LOOK FOR BIT FAILURES WHEN RPDS READ 
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CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 49-8 
RESET ATTENTION °A* BY WRITING RPAS 


000882 


002332 
002266 
002332 


116136 


00233 





_ PORTA, PTNBR 


XPTED ,BADDAT 
CSERHRD 
11 
EM7 
ERRS 
#ERMT14 
#1,=(SP5 
SP;RO 
CSPNTB 
#4,SP 
TMP3, BADDAT 
PORTB,PTNBR 
EXPTED ,BADDAT 
74$ 
CSERHRD 
12 
EM7 


ERRS 
#FRMT15,=(SP) 
#1,=(SP5 


SP, 
CS$PNTB 
#4,SP 


=(SP) 


RELERR 
+6 
4$ 


WRITE PORT A ATTENTION BIT 
MOV 


ASRA,@RPAS 


ZVERIFY THAT THE CORRECT ATA BIT IS keSET 
CLEAR THE "CHECK ERROR’ INDICATOR 
RM REGISTER ADDRESS OF ERROR MESSAGE 
SRB, EXPTED s:;WHAT REGISTER SHOULD BE 

EXPTED ,BADDAT iis THE REGISTER OK ? 


CKERR 
@RPAS,BADDAT ;:G 
RPAS -BADADR :F0 


CSERHRD 
EM10 
ERR3 
#FRMT17 
#1,-(SP5 
RO 
CSPNTB 
#4,SP 
CKERR 
CKERR 
SSERHRD 
EM60 


=(SP) 





a ne 


— 


BR IF OK FROM PORT A. 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
sCHANGE PORT 

SEE _IF READ OK FROM PORT B. 

;BR IF OK 

21S DRIVE NEUTRAL? 


3BR YES 
sBYPASS REST OF TEST 


zSET THE REGISTER COMPARE ERROR INDICATOR 


se RPO7 DUAL PORT T 


TEST 2 
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EST MACRO V04.00 1-JANGB3 15:44:57 PAGE 49-8 


A° BY WRITING RPAS 


.WORD  ERR3 
003522 MOV #FRMT15,=(SP) 
000001 MOV #1,<(SP5 
MOV 
TRAP  C$PNTB 
000004 ADD #4,SP 
BR 4 sBYPASS REST OF TEST 
ZWAIT FOR DRIVE TO RELEASE BY TIMEOUT 
1$: 
002246 115770 MOVB PORTA, aRPCS2 :SELECT PORT A 
002246 002266 MOV PORTA,PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
115760 2$: ist gRPDS MAKE SURE DRIVE IS AVAILABLE 
002250 115746 MOVB = PORTB, aRPCS2 :SELECT PORT B 
002250 002266 MOV PORTB, OTHER :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
115736 3$: ist @RPDS MAKE SURE DRIVE IS AVAILABLE 
4$: 
3CLEAR ATTENTION BITS FOR BOTH PORTS 
002246 115724 MOVB PORTA,@RPCS2 ;SELECT PORT #A 
115722 CLR @RPDS :SEIZE THE DRIVE 
000011 115702 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
000013 115674 MOV #13,aRPCS1 SRELEASE THE DRIVE 
zSTART THE TIMER 
002304 CLR TIME :CLEAR THE ELAPSED, TIME COUNTER 
000050 002306 MOV #40. ,WATCH ‘SET WATCH TR 40. 
002306 77$: Ist WATCH 
002250 115656 MOVB PORTB,@RPCS2 =;:SELECT PORT #8 
115654 CLR @RPDS :SEIZE THE DRIVE THROUGH PORT ‘B* 
011 115634 MOV #11,aRPCS1 sISSUE DRIVE CLEAR 
000013 115626 MOV #13. aRPCS1 SRELEASE THE DRIVE 
zSTART THE TIMER 
002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. M an 
002306 78$: TST WATCH 
BNE 78$ 
L10065: 
TRAP — CSETST 


SEQ 0173 


— 


F 14 
T MACRO Bante R ai 15:44:57 PAGE so’ SEQ 0174 © 


CZRJNAO RPO7 DUAL PORT TES 
*B’ BY WRITING R 


TEST 24 RESET ATTENTION 


1 .SBTTL TEST 24 RESET ATTENTION 'B" BY WRITING RPAS 
: :*VERIFY THAT ATA BIT CAN BE RESET BY WRITING THE APPROPRIATE BIT 
$ * BIT IN THE ATTENTION SUMMARY REGISTER (RPAS) 
3* 
§ t* A, SET ATTENTION BITS IN BOTH PORTS, VERIFY THAT BOTH ARE SET 
3* 
g :* B. VERIFY THAT DRIVE IS IN NEUTRAL 
;* 
10 * C. WRITE PORT 'B* ATTENTION BIT IN RPAS, VERIFY THAT ONLY 
1 it PORT "B’ ATTENTION BIT IS RESET. 
ze 
13 
14 064566 T24:: 
18 064566 005737 002340 TST DRVBAD zSYSTEM OK?? 
064572 001402 BEQ 64$ STAKE BRANCH IF SO 
064574 104432 TRAP C$EXIT 
064576 001204 .W 10066-. 
2 SRAEAEAAAAAAAAAEEEAAEEEEAEEEEAAEEAATEAAREAAEARAREAAAEAAEAAEEEEAEEEEAAEERAEAEEEEEEE 
064600 : 
:SET ATTENTION BITS FOR BOTH PORTS 
064600 113777 002246 115574 MOVB PORTA,@RPCS2 =; SELECT PORT A 
064606 005777 115572 67$: TST @RPDS ZMAKE SURE DRIVE AVAILABLE 
064612 001775 BEQ 67$ 
064614 012777 000017 115550 MOV #17,aRPCS1 
064622 013777 002250 115552 MOV PORTB, @RPCS2 =; SELECT THE OTHER PORT 
064630 005777 115550 65$: TST @RPDS :WAIT FOR DRIVE TO TIMEOUT 
064634 001775 BEQ 65$ :BR IF DRIVE HASN'T TIMED OUT 
064636 012777 000017 115526 MOV #17,aRPCS1 sFORCE ATA 
064644 113777 002246 115530 MOVB PORTA,aRPCS2  ;SELECT PORT A AGAIN 
064652 005777 115526 66$: TST @RPDS 3WAIT FOR DRIVE TO TIMEOUT 
064656 001775 BEQ 66$ ‘BR IF DRIVE “ASN'T TIMED OUT 
Z8 RERARRERERARAERERERERAERERAEAEAEARARAARERERAREREREREREREREEEEREREEEEEREEEEEEE 
‘CONFIRM THAT BOTH ATTENTION BITS ARE SET hs 
064660 113777 002250 115514 MOVB PORTB,aRPCS2 7SELECT PORT B 
064666 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064674 005037 002276 CLR CKERR *CLEAR THE "CH HECK ERROR’ INDICATOR 
064700 017737 115504 002332 MOV @RPAS,BADDAT ;GET CONTENTS OF RPAS 
064706 013737 002410 002334 MOV RPAS ,BADADR :Fonm REGISTER ADDRESS OF ERROR MESSAGE 
064714 013737 002260 002336 MOV ASR1EXPTED :WHAT REGISTER SHOULD BE 
064722 023737 002336 002332 CMP EXPTED ,BADDAT 718 THE REGISTER OK ? 
064730 001416 BEQ 68$ ‘aR IF OK 
064732 104456 TRAP  §CSERHRD 
064734 000004 .WORD 4 
064736 006146 .WORD €£M10 
064740 012654 “WORD ERR3 
064742 012746 003716 MOV #FRMT17,=(SP) 
064746 012746 000001 MOV #1,=(SP5 
064752 010600 MOV P 
064754 104414 TRAP CSPNTB 
064756 062706 000004 ADD SP 
064762 005137 002276 ne COM freer zSET THE REGISTER COMPARE ERROR INDICATOR 
064766 005737 002276 TST CKERR zARE BOTH BITS SET? 
064772 001402 BEQ +6 ‘BR YES 





— 
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i$ CZRJNAO RPO7 DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 50-1 SEQ 0175 | 
TEST 24 RESET ATTENTION "B’ BY WRITING RPAS 
064774 000137 065666 JMP 4$ sBYPASS REST OF TEST 


sCHECK IF NEUTRAL 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 


065000 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
004 013737 002404 002334 MOV RPDS ,BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
065012 012737 111700 002336 MOV #111700, EXPTED ;COMPARSION CONSTANT 
5020 113777 002246 115354 MOVB PORTA,aRPCS2  :SELECT PORT A. 
065026 017737 115352 002346 MOV @RPDS, TMP2 sGET THE MORI Ve STATUS REGISTER FROM PORT A. 
5034 042737 024005 002346 BIC #PIP!URL!OM!ILV, THPe ZCLEAR DONT CARES 
5042 013737 002346 002342 MOV TMP2 , THPO N 
5050 042737 100100 002342 BIC WATA'VV,TMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
065056 113777 902250 115316 MOVB PORTB,aRPCS2 :SELECT PORT 
064 017737 115314 002350 MOV @RPDS, TMPS iGET THE DRIVE STATUS REGISTER FROM PORT B. 
065072 042737 024005 002350 BIC #PIP!URL!OM! ILV, TMP ZCLEAR DONT CARES 
065100 013737 002350 002344 MOV ‘ :¢ ay IT INTO ‘TMP1° 
065106 042737 100100 002344 BIC WATA‘VV,TMP1 = CLEAR PORT DEPENDENT BITS FROM THE COPY 
065114 023737 002342 002344 CMP TMPO, TMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
065122 001021 BNE 70$ ‘BR IF NOT 
065124 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
065130 001073 BNE 72$ :BR IF NOT 
065132 104456 TRAP CSERHRD 
065134 000006 .WORD 6 
065136 010751 “WORD M46 
065140 013534 ;WORD ERR15 
065142 012746 003716 MOV #FRMT17,-(SP) 
065146 012746 000001 MOV #1,-(SP5 
065152 010600 MOV SP, 
065154 104414 TRAP CS$PNTB 
065156 062706 000004 ADD #4,SP 
065162 000137 065450 JMP 74$ :BYPASS THE REST OF THE CHECKS 
065166 013737 002346 002332 70$: MOV TMP2 .BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
065174 013737 002250 002266 MOV PORTB,PTNBR SSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065202 113777 002250 115172 MOVB PORTB.a@RPCS2 :SELECT PORT 
065210 005737 002342 TST TMPO sSEE IF STATUS | EQ 0 FROM PORT A. 
065214 001414 BEQ 71$ :BR IF ZERO 
065216 013737 002246 002266 MOV PORTA,PTNBR 3SEIZI NG PORT IF TEST aoe DRIVE NOT IN NEUTRAL 
065224 013737 002350 002332 MOV TMP3,BADDAT :"BAD DATA’ A ERROR TYPE OUT 
065232 113777 002246 115142 MOVB PORTA, @RPCS2 ss : SELECT PORT 
065240 005737 002344 TST MP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
065244 001025 BNE 1S T 
065246 012737 177777 002302 71$: MOV #-1,RELERR ‘oF ‘RELEASE ERROR’ INDICATOR 
065254 012777 000011 115110 MOV #11, aRPCS1 [CLEAR THE DRIVE 
065262 012777 000013 115102 V #3, aRPcst SRELEASE THE DRIVE 
065270 104456 TRAP  CSERHRD 
065272 11 . WORD 
065274 007313 “WORD EM26 
065276 013214 “WORD ERR9 
065300 012746 003716 MOV #FRMT17,=(SP) 
065304 012746 000001 MOV #1,-(SP5 
065310 010600 MOV SP‘*RO 
065312 104414 TRAP  C$PNTB 
065314 06 706 000004 ADD #4,SP 
065320 013737 002346 002332 72$:  # MOV THES BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
065326 013737 002246 002266 MOV PORTA,PTNBR sCHANGE PORT NUMBER 





—A a 


SSC ET aa ys weary 


Muse SS 


* 
Avon 


g 


MVIMMVMMMIMMIMIMI MII 


ttt ttt ttt 


MUIMMUMIMIMUIUIU 
SENSE 





H 14 
CZRJNAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 50-8 
TEST 24 RESET ATTENTION "B° BY WRITING RPAS 


002336 002332 


003716 
000001 


000004 
002276 


002276 


R 


EXPTED BADDAT yALL BIT 
<BR IF 

CSERHRD 

11 

EM7 

ERRS 

#FRMT14,=(SP) 

#1,-(SP5 

SP,RO 

Stes 

TMP3,BADDAT :CHECK RPDS for BIT FAILURES = FROM PORT B. 
RTB,PTNBR [CHANGE PORT NUMBER 
XPTED ,BADDAT SEE IF READ OK FROM PORT B. 

CSERHRD 

12 

EM7 

ERRS 

#FRMT15,<(SP) 

#1,-(SP5 

SP,RO 

CSPNTB 


R 
3. 


ROM PORT A. 


RELERR 31S DRIVE NEUTRAL? 
+6 3sBR Y 
4$ sBYPASS REST OF TEST 


sWRITE "— B ATTENTION BIT 


ASRB ,@RPAS 


THAT THE CORRECT ATA BIT IS RESET 


CKERR LEAR THE "CHECK ERROR' INDICATOR 
@RPAS ,BADDAT cis" CONTENTS OF RPAS 
RPAS ,BADADR 2 FORM REGISTER OODRESS OF pERROR MESSAGE 
ASRA, EXP sWHAT REGISTER SHOULD BE 
EXPTED.BADDAT 718 THE REGISTER OK ? 

5$ ‘aR IF 
CSERHRD 
EM10 


ERR3 
#ERMT17,-(SP) 
#1,-(SP5 


SPR 
eu 
CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
CKERR 
Spree 
5 


EM6 
ERR 


3BR YES 





SEQ 0176 | 










TEST 24 RESET ATTENTION °B’ BY WRITING R 


065622 1$: 


005037 002304 CLR 
012737 000050 002306 MOV 
005737 002306 77$: TST 
001375 BNE 
113777 002250 114440 MOVB 
005077 114436 CLR 
012777 000011 114416 MOV 
012777 000013 114410 MOV 


CLR 

MOV 
78$: TST 

BNE 
L10066: 

TRAP 


065600 012746 00347 MOV 

065604 012746 000001 MOV 

065610 01 MOV 

065612 104414 TRAP 
065614 pee 708 000004 ADD 

065620 


BR 
sWAIT FOR DRIVE 


065622 113777 002250 114552 MOVE 
065650 013737 002250 002266 MOV 
065636 005777 114542 2$: TST 
5642 001775 BEQ 
065644 113777 002246 114530 MO 
065652 aE Le 002246 002266 MOV 
5660 5777 114520 3$: TST 
065664 001775 BEQ 
065666 4$: 
065666 113777 002246 114506 
065674 005077 114504 CLR 
065700 012777 000011 114464 MOV 
065706 012777 000013 114456 MOV 


Ee = ee =e 
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#FRMT14,<(SP) 
#1,=(SP5 
SP-RO 

CSPuTB 


4$ :BYPASS REST OF TEST 
TO RELEASE BY TIMEOUT 


PORTB,a@RPCS2 sSELECT PORT B 
PORTB,PTNBR snOve PORT ADDRESS TO LOCATION FOR TYPEOUT 
@RPDS MAKE SURE DRIVE IS AVAILABLE 


2s 

PORTA, @RPCS2 SELECT PORT A 

PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
@RPDS MAKE SURE DRIVE IS AVAILABLE 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, @RPCS2 
@aRPDS 


SELECT PORT #A 
sSEIZE THE DRIVE 
ZISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


#11,aRPCS1 
#13,aRPCS1 


sSTART THE TIMER 


TIME CLEAR THE wt ae COUNTER 
#40. ,WATCH 3SET WATCH TO 40. M 

WATCH 

77$ 

PORTB,aRPCS2 SELECT PORT #8 

@aRPDS 3SEIZE THE DRIVE THROUGH PORT ‘B' 
#11, aRPCS1 ISSUE DRIVE CLEAR 

#13,aRPCS1 RELEASE THE DRIVE 


START THE TIMER 


TIME CLEAR THE ELAPSED tan COUNTER 
#40. ,WATCH 3SET WATCH TO 40. M 

WATCH 

78$ 

CSETST 


SEQ 0177 


eee ne son me et. n+ eee 0 ee 


_—s 
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TEST 25 SET ATTENTION ‘A’ BY COMMA 


1 -SBTTL TEST 25 SET ATTENTION 'A* BY COMMAND 
5 z*TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
; - COMMAND. 
§ i A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘A’. 
8 :* B. WAIT FOR TE yPECALIBRATE COMMAND TO COMPLETE ("DRY’ TO BECOME 
9 8 4° VERIFY THAT THE ATTENTION BIT FOR PORT ‘A*® IS SET AND 
19 3* THAT THE ATTENTION BIT FOR PORT 'B’ IS NOT SET. 
3* 
12 7* C. RELEASE THE DRIVE THROUGH PORT ‘A‘. VERIFY THAT THE DRIVE RETURNED 
i 3* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
3* 
15 
75 066004 T25:: 
79 066004 005737 002340 TST DRVBAD SYSTEM OK?? 
066010 001402 BEQ 64$ zTAKE BRANCH IF SO 
066012 104432 TRAP CSEXIT 
066014 001162 WORD 110067-. 
066016 64$: 
CLEAR ATTENTION BITS FOR BOTH PORTS 
066016 113777 002246 114356 MOVB PORTA, aRPCS2 SELECT PORT #A 
024 005077 114354 CLR @RPDS *SEIZE THE DRIVE 
066030 012777 000011 114334 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
36 012777 000013 114326 MOV #13,aRPCS1 *RELEASE THE DRIVE 
START THE TIMER 
066044 005037 002304 CLR TIME CLEAR THE ELAPSED TIME COUNTER 
066050 012737 000050 002306 MOV #40. ,WATCH ‘SET WATCH TO 40. M 
066056 005737 002306 65$: TST WATCH 
001375 BNE 65$ 
113777 002250 114310 MOVB PORTB,a@RPCS2 SELECT PORT #8 
066072 005077 114306 CLR @RPDS SEIZE THE DRIVE THROUGH PORT ‘B’ 
066076 012777 000011 114266 MOV #11,aRPCS1 ISSUE DRIVE CLEAR 
066104 012777 000013 114260 MOV #13, aRPCS1 RELEASE THE DRIVE 
START THE TIMER 
066112 005037 002304 CLR TIME CLEAR THE ELAPSED TIME COUNTER 
066116 012737 000050 002306 MOV #40. ,WATCH ‘SET WATCH TO 40. M 
066124 005737 002306 66$: TST WATCH 
066130 001375 BNF 66$ 
066132 113777 002246 114242 MOVB PORTA, @RPCS2 SELECT PORT A 
066140 013737 002246 002266 MOV PORTA, PTNBR 3MOVE™ PORT ADDRESS TO LOCATION FOR TYPEOQUT 
066146 013737 002246 002270 MOV PORTA, SEIZPT 3"SEIZED' PORT ADDRESS 


SEERA EEAEAEEAEEAAEREEEEEEEAEAETERAAAAAAAERARERAAERAEREEAEREAEEEEREREAEEEEEEEEEEEE 


‘bo A RECALIBRATE THROUGH PORT A 
066154 012777 000007 114210 MOV #7,aRPCS1 zISSUE A RECALIBRATE COMMAND THROUGH PORT A 


FRRAAAEAAAEEAEEAEAEEEEEAE SEERA AERA EAAAEAEEAAEEEEAEAEREEEREREREEAEREREEEEEEEEEEE 


SUAIT FOR DRIVE TO FINISH 
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TEST 25 SET ATTENTION °A® BY COMMAND 


066162 032777 000200 114214 BIT #DRY ,ARPDS sWAIT FOR DRIVE TO FINISH 
066170 001774 BEQ -~6 sBR IF NOT FINISHED 


FARRAR AAAAEAAAAAAAAEE EATER EREAAEAAAEAAAEREREAAAAEAREREREREEREERAEREEEEEEEREREE 


CONF IRM THAT ATTENTION IS SET FOR PORT A 


066172 005037 002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
066176 017737 114202 002332 MOV @RPDS ,BADDAT cite CONTENTS OF RPDS 
066204 013737 002404 002334 MOV RPDS ,BADADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
066212 0 737 100000 002336 MOV #ATA,EXPTED igeWHAT REGISTER SHOULD BE 
066220 013737 002332 00234 MOV BADDAT, TMPO sMOVE REGISTER CONTENTS TO *TMPO* 
066226 042737 077777 002342 BIC #°CATA, TMPO sSAVE SPECIFIED BITS 
066234 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
066242 001427 BEQ 67$ “BR IF OK 
066244 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA’ 
066252 042737 100000 002352 BIC #ATA, TMP ;CLEAR THE MASKED BITS 
066260 053737 002352 002336 BIS TMP4 .EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
066266 104456 TRAP SERHRD 
066270 000003 .WORD 
066272 007630 SWORD EM32 
066274 012654 “WORD ERR3 
066276 012746 003716 MOV #FRMT17,-(SP) 
066302 012746 000001 MOV #1,-(SP) 
066306 010600 MOV 
066310 104414 TRAP  (C$PNTB 
066312 062706 000004 ADD #4,SP | 
066316 005137 002276 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
06632 67$: 

:RELEASE THE DRIVE FROM PORT A 
066322 113777 002246 141052 MOVB _—— PORTA, aRPCS2 :SELECT PORT A 
066330 013737 002246 002266 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCAT.ON FOR TYPEOUT 
066336 012777 000013 114026 MOV #13,aRPCS1 sISSUE RELEASE THROUGH PORT A 

ZSTART THE TIMER 
066344 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
066350 012737 000050 002306 MOV #40. WATCH :SET WATCH TO 40. M 
066356 005737 002306 69$: TST WATCH 
066 001375 BNE 


VERIFY THAT THE DRIVE IS IN NEUTRAL 


066364 005037 002302 CLR RELERR ZCLEAR THE "RELEASE ERROR * INDICATOR 
066370 013737 002404 002334 MOV RPDS R °F RM THE ADDRESS OF RPDS FOR TYPEOQUT 
066376 012737 60 002336 MOV L'PGM'DPR! DRY! VV, EXPTED 4 Vania SON CONSTANT 

066404 113777 002246 113770 MOVB = PORTA, aRPCS2 is T 

066412 017737 113766 002346 : T THE DRIVE “STATUS REGISTER FROM PORT A. 
066420 042737 024005 002346 BIC APIB ORL ‘OM! ILV, {HP 2 CL ARES 

066426 013737 002346 00234 MOV ' Y IT INTO ‘TMPO* 

066434 042737 100100 00234 BIC #ATA‘VV, THPO 2 EOE AR PORT DEPENDENT BITS FROM THE COPY 
yeh 19039 ” $3 03530 moY ORPDe: rahecse :SEL Hee eon ORIVE "STATUS REGISTER FROM PORT B 
066456 042737 024005 002350 BIC #PIP'URLIOM!ILV, ines ZCLEAR DONT CARES 
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SET ATTENTION °A* BY COMMAND 


TEST 2 


RNOBFOR 


SESSSSSSS SER SS 
SENSES 


5 


MMMM MUI 


283 


S 


: 8 
NO 

VIiNIWN 

COUN IN 


NVI 
wi 
— 


=-Ooooo 
g 
Sone 


4 2 
mM 


UWS IW 
ANNE NNN 
mo re WWW 


ege=cess=c2 
—J 
Ww 
N 


000014 


002350 
100100 


002342 


003716 
000001 


177777 
p00ot 
00013 


003716 
000001 


003471 
000001 


00 0550 
p0s¢30 
002336 


002344 
Oo93e4 
002344 


002332 
002266 
113606 


002332 
002266 
002332 


002332 
00226 
00233 


70$: 


71$: 


72$: 


7 

CSERHRD 

é 

ERR15 
#FRMT17,-(SP) 
#1,-(SP5 
SP,RO 
CSPNTB 
#4,SP 

74 

TMP2 ,BADDAT 


PORTB,PTNBR 
PORTB,aRPCS2 
TMPO 


71$ 
PORTA,PTNBR 
TMP3 ,BADDAT 
PORTA, aRPCS2 
TMP1 


72$ 
#-1,RELERR 


EM26 


ERRO 
#FRMT17,=(SP) 
#1.<(SP5 


SP-R 
CSPNTB 

#4,SP 

T™mbS. BADDAT 

RTA, PTNB 

EXPTED ,BADDAT 
CSERHRD 

11 

EM7 

ERRS 

#FRMT14,=(SP) 

#1,-(SP5 
SP’RO 

C$PNTB 

#4,SP 

TMP3 ,BADDAT 

PORTB,PTNBR 
XPTED ,BADDAT 


CSERHRD 
12 


ee ee ee a —— 


SEQ 0180 


sCOPY IT INTO ‘TMP1* 
3CLEAR PORT DEPENDENT BITS FROM THE COPY 
eIS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


SREGISTERS ARE THE. SAME: ARE THEY ZERO ? 
BR IF NOT 


sBYPASS THE REST OF THE CHECK 
sSET_UP POSSIBLE BAD DATA FOR S ERROR MESSAGE 
Sete ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


CT PORT 6B. 
sSEE IF _ STATUS EQ 0 FROM PORT A. 
ZERO 


: SEIZING. ate IF TEST oe DRIVE NOT IN NEUTRAL 
a erece a ee ERROR TYPE OUT 


PORT A. 
3SEE IF STATUS EQ ZERO FROM PORT B. 


$SET "RELEASE ERROR’ INDICATOR 
sCLEAR THE 
sRELEASE THE DRIVE 


:LOOK FOR HM FAILURES WHEN RPDS READ 
3: CHANGE ws NUMBER 

ALL BITS 0 

3BR IF OK PROM PORT A. 


:CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
sCHANGE PORT R 

sSEE IF READ OK FROM PORT B. 

BR IF OK 






C6719 


p06076 


ois 746 


Voce 
062706 


113777 
013737 


104401 


003522 
000001 


000004 


002250 
002250 


003716 
000001 


000004 
002276 


002336 


74$: 


MOVB 
MOV 


a A 
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TEST 25 SET ATTENTION °A* BY COMMAND 


EM7 
ERRS 

#FRMT15,=(SP) 

#1,=(SP5 

SP.R 

C$PNTB 

#4,SP 

PORTB,aRPCS2 :SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


pReeeeeneeeeeeeeeeeeeeeeeeeedeeedaeeeteeeetadeeereareeeeeeeeeeeereereeeeeeees 


CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 


75$: 
L10067: ; 


CLR 





CKERR LEAR THE "CHECK ERROR’ INDICATOR 
@RPDS ,BADDAT git CONTENTS OF RP 

RPDS,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
EXP PrED :WHAT REGISTER LD 

BADDAT, TMPO *MOVE REGISTER CONTENTS TO "TMPO* 
#°CATA.TMPO SAVE SPECIFIED BITS 

EXPTED, TMPO 3COMPARE THE BITS 

75$ *BR IF OK 

BADDAT, TMP4 [COPY "BAD DATA® 

HATA, TMPG CLEAR THE MASKED BITS 

THPS Ex *EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 

3 

EM32 

ERR3 

#FRMT17,-(SP) 

#1,-(SP5 

csPNTB 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


CSETST 


SEQ 0181 | 


— 
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26 SET ATTENTION "B’ BY COMMAND 
1 .SBTTL TEST 26 SET ATTENTION "B® BY COMMAND 
3 z*TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
4 :* COMMAND. 
g :* A. ISSUE A RECALIBRATE COMMAND THROUGH PORT °B’. 
8 * 8. WAIT FOR THE /PECALIBRATE COMMAND TO COMPLETE ("DRY TO BECOME 
9 ce "1"). VERIFY THAT THE ATTENTION BIT FOR PORT ‘B’ IS SET AND 
10 :* THAT THE ATTENTION BIT FOR PORT ‘A® IS NOT SET. 
12 [* (C. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
13 :* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
15 
16 067200 126:: 
20 067200 005737 002340 TST DRVBAD zSYSTEM 0K2? 
067204 001402 BEQ 64$ STAKE BRANCH IF SO 
067206 104432 TRAP  C$EXIT 
067210 001162 .WORD 110070. 
067212 64S: 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
067212 113777 002246 113162 MOVB PORTA,@RPCS2 ;:SELECT PORT #A 
067220 005077 113160 CLR @RPDS SSEIZE THE DRIVE 
067224 012777 000011 113140 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
7232 012777 000013 113132 MOV #13, aRPCS1 SRELEASE THE DRIVE 
sSTART THE TIMER 
067240 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
067244 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. 
067252 005737 002306 65$: ‘TST WATCH 
067256 001375 BNE 65$ 
7260 113777 002250 113114 MOVB PORTB,aRPCS2  =;SELECT PORT #8 
067266 005077 113112 CLR @RPDS [SEIZE THE DRIVE THROUGH PORT 'B* 
067272 012777 000011 113072 MOV #11, aRPCS1 TISSUE DRIVE CLEAR 
7 012777 000013 113064 MOV #13; aRPCS1 SRELEASE THE DRIVE 
sSTART THE TIMER 
067306 005037 002304 CLR TIME SCLEAR THE ELAPSED TIME COUNTER 
067312 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. 
067320 005737 002306 66$: TST WATCH 
067324 001375 BNE 66$ 
067326 113777 002250 113046 MOVB § PORTB, aRPCS2 :SELECT PORT B 
7334 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
067342 013737 002250 002270 MOV PORTB,SEIZPT ° ;°SEIZED' PORT ADDRESS 


SERRE REEEREREEEEEEEREEEEAEAEAAAEAAERAEEEREAEAEEAEEEEREERAEEEEEEEREEEEEEEREREE 


‘bo A RECALIBRATE THROUGH PORT B 
067350 012777 000007 113014 MOV #7,aRPCS1 ;ISSUE A RECALIBRATE COMMAND THROUGH PORT B 


FERRER EERE EEE E EEE EEEEREEEEAEEEEEEEAEEEEAEEEEAEEEEEEREEE 


‘WAIT FOR DRIVE TO FINISH 
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TEST 26 SET ATTENTION °B* BY COMMAND 


067356 032777 000200 113020 BIT #DRY ,@RPDS WAIT FOR DRIVE TO FINISH 
067364 001774 BEQ -~6 2BR IF NOT FINISHED 


FERRARA AEAAEEEEEEEEEEEEEEEEEEREAEEEEEEREEEEEEREREEEREEEEEAEEEEEEEERERAEEE 


CONF IRM THAT ATTENTION IS SET FOR PORT B 


7 005037 002276 CLR CKERR CLEAR THE - "CHECK ERROR® INDICATOR 
067372 017737 113006 002332 MOV @RPDS BADDAT -ckt 
7400 013737 002404 002334 MOV RPDS ,BADAD tORN REGISTER ADDRESS OF ERROR MESSAGE 
7406 012737 100000 002336 MOV PATALEXPTED i geWHAT REGISTER 
067414 013737 002332 002342 MOV BADDAT, TMPO :MOVE REGISTER CONTENTS TO ‘TMPO* 
067422 042737 077777 002342 BIC #°CATA,TMPO ;SAVE SPECIFIED BITS 
7430 023737 002336 002342 CMP EXPTED, TMPO sCOMPARE THE BITS 
067436 001427 BEQ 6 [BR IF OK 
067440 013737 002332 002352 MOV BADDAT, TMP4 [COPY "BAD DATA® 
067446 042737 100000 002352 BIC HATA, TMP4 ZCLEAR THE MASKED BITS 
067454 053737 002352 002336 BIS TMP4. EXPTED :"OR' WITH GOOD DATA FOR TYPEOUT 
067462 104456 TRAP  CSERH 
067464 000003 .WORD 3 
067466 007630 SWORD EM32 
067470 012654 “WORD ERR3 
067472 012746 003716 MOV #ERMT17,-(SP) 
067476 012746 000001 MOV #1,-(SP) 
067502 010600 MOV SP, 
067504 104414 TRAP  C$PNTB 
067506 062706 000004 ADD #4,SP 
067512 005137 002276 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
067516 67$: 
;RELEASE THE D2IVE FROM PORT B 
067516 113777 002250 112656 MOVB = PORTB, aRPCS2 :SELECT PORT B 
067524 013737 092250 002266 MOV PORIB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
067532 012777 000013 112632 MOV #13, aRPCS1 sISSUE RELEASE THROUGH PORT B 
:START THE TIMER 
067540 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
067544 012737 000050 002306 MOV #40. ,WATCH SSET WATCH TO 40. M 
067552 005737 002306 69$: TST WATCH 
067556 001375 BNE 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 
067560 005037 002302 CLR RELERR ich EAR THE "RELEASE ERROR * INDICATOR 
7564 013737 002404 002334 MOV PDS ,BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
067572 012737 011700 002336 MOV ambi {POM DPRIDRYIVY EXPTED ;COMPARISON CONSTANT 
067, 113777 002246 112574 MOVB _—s—wPORTA, -@RPCS2 ZSELECT PORT A. 
067606 017737 112572 002346 MOV @RPDS, TMP “GET THE DRIVE STATUS REGISTER FROM PORT A. 
067614 042737 024005 002346 BIC #PIPIURL SOM! I LV, TMP 2 —(sCLEAR DONT CARES 
0676 ee tat sat BIC yaTatve vaP :CLEAR "PORT OE PENDENT BITS FROM THE COPY 
Gores 118re2 Obges) 119885 ove Fontfvadrese :SELECTTPOnT Bot) 20> TOM UN OO 
067652 042737 024005 002350 BIC #PIP!URL OM! ILV, jer :CLEAR DONT CARES 





—m— 


Ce ——< 
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TEST 26 SET ATTENTION "B’ BY COMMA 


067660 013737 002350 ei MOV TMP3, TMP zCOPY IT INTO ‘TMP1° 
067666 é 7 100100 002344 BIC WATA'VV,TMP1 | :CLEAR PORT DEPENDENT BITS FROM THE COPY | 
067674 023737 002342 002344 CMe TMPO, TMP1 :1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
067702 001021 BNE 70$ ‘BR IF NOT 
704 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
067710 001073 BNE 72$ ‘BR IF NOT 
067712 104456 TRAP CSERHRD 
067714 000006 .WORD 6 
067716 010751 ;WORD EM46 
067720 013534 -WORD ERR15 
067722 012746 003716 MOV #FRMT17,=(SP) 
7726 012746 000001 MOV #1,-(SP) 
067732 010600 MOV J 
067734 104414 TRAP C$PNTB 
067736 062706 000004 ADD #4,SP 
067742 000137 070230 JMP 74$ ZBYPASS THE REST OF THE CHECK 
067746 913737 002346 002332 70$:  ## MOV TMP2 ,BADDAT :SET UP POSSIBLE BAD DATA FOR s ERROR MESSAGE | 
067754 013737 002250 002266 MOV PORTB,PTNBR ‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL | 
067762 113777 002250 112412 MOVB PORTB.a@RPCS2 :SELECT | 
067770 005737 002342 TST TMPO 3 SEE IF STATUS EQ 0 FROM PORT A. 
067774 001414 BEQ 71$ F ZERO 
067776 013737 002246 002266 MOV PORTA, PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
70004 013737 002350 002332 MOV TMP3, BADDAT :"BAD DATA® 7fOR ERROR TYPE OUT 
070012 113777 002246 112362 MOVB PORTA,@RPCS2 :SELECT PORT 
070020 005737 002344 TST TMP1 SEE IF STATUS’ EQ ZERO FROM PORT B. 
070024 001025 BNE 72$ 
070026 012737 177777 002302 71$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
70034 O1g777 000011 112330 MOV #11. aRPCS1 ZCLEAR THE DRIV 
70042 012777 000013 112322 MOV #13. aRPCS1 *RELEASE THE DRIVE 
070050 104456 TRAP  CSERHRD 
070052 000011 «WORD 9 
070054 007313 <WORD EM26 
070056 013214 -WORD ERR9 
070060 012746 003716 MOV #FRMT17,=(SP) 
70064 012746 000001 MOV #1,-(SP5 
070070 010600 MOV SP,RO 
070072 104414 TRAP  C$PNTB 
070074 062706 000004 ADD #4,SP 
070100 013737 002346 002332 72$: MOV TMP2 ,BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
70106 013737 002246 002266 MOV PORTA, PTNBR + CHANGE PORT NUMBER 
070114 023737 002336 002332 CMP EXPTED,BADDAT :ALL BITS O 
070122 001414 BEQ 7 'BR IF OK PROM PORT A. 
070124 104456 TRAP  CSERHRD | 
070126 000013 .WORD 11 
70130 006072 } .WORD M7 | 
070132 013000 “WORD ERRS 
70134 012746 003471 MOV #ERMT14,-(SP) 
070140 012746 000001 MOV #1,-(SP5 
070144 010600 MOV P’RO 
070146 104414 TRAP C$PNTB 
070150 062706 000004 ADD #4 sP 
070154 013737 002350 002332 73$: #§ MOV tne BADDAT :CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
070162 013737 002250 002266 MOV PORTB,PTNBR 3 CHAN NGE PORT NUMBE | 
070170 023737 002336 002332 CMP EXBTED BABDAT [SEE IF READ OK FROM PORT B. 
070176 001414 BEQ 74$ :BR IF OK 
070200 104456 TRAP  CSERHRD 
070202 000014 «WORD 12 | 
| 
| 
| 
J 


— a 





grneee 














07 

070372 
24 070372 
070372 


006072 
5 i 


003522 
000001 


000004 


002246 
002246 


003716 
000001 


000004 
002276 


112144 
902266 


002332 
002334 


002342 
002342 
002342 


002352 
002352 
002336 
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TEST 26 SET ATTENTION ‘B* BY COMMAND 


74$: 


SEQ 0185 | 








-WORD M7 
WORD 


ERRS 
MOV #FRMT15,=(SP) 
MOV #1,=(SP5 


MOV 
TRAP CSPNTB 
4,SP 


MOVB PORTA, @RPCS2 SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


Vv 
peeeeeedeeeeeeeeneeeeeeeeetedeeeeKeeeneeneeeeeteateereeneeeteeeeeereeeeeeeeees 


CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 


75$: 
L10070: ; 


CKERR LEAR THE "CHECK ERROR® INDICATOR 
MOV @RPDS ,BADDAT ct CONTENTS OF RPD 


MOV RPDS. BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
CLR EXPTED :WHAT REGISTER SHOULD BE 
MOV BADDAT, TMPO “MOVE REGISTER CONTENTS TO "TMPO’ 


BIC #*CATA,TMPO ; SAVE SPECIFIED BITS 
cMP EXPTED, THPO : ‘oR IF RE THE BITS 


BEQ F OK 

MOV BADDAT , TMP4 ;COPY "BAD DATA 

BIC #ATA,TMP4 :CLEAR THE MASK ED BITS 

BIS TMP4 ,EXPTED :°OR* WITH GOOD DATA FOR TYPEOUT 
TRAP CSERHRD 

-WORD 3 

~WORD EM32 

- WORD 


ERR3 
#FRMT17,=(SP) 
MOV #1,=(SP5 


MO 
TRAP CSPNTB 
COM CKERR 3SET THE REGISTER COMPARE ERROR INDICATOR 


CSETST 





| 


— 






















070374 
070374 


NWWN OVD ONOUEWwh— 


nt 
Sat a ss 


070502 
070506 
070514 
070520 


070522 
070530 
070536 


070542 


070550 


ees=eses 
pt phe oe | 
N 
N 


012777 


002340 


002246 
111764 


000011 
000013 


002304 
000050 
002306 


002246 
00224 
11164 


002250 


000003 
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TEST 27 TEST THAT PORT ‘A’ TIMEOUT DOES NOT RESET DRIVE 


111766 
111744 


111736 
002306 
111720 


111676 
111670 


002306 


111652 
002270 


002272 


111614 


E 15 
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-SBTTL TEST 27 TEST THAT PORT ‘A TIMEOUT DOES NOT RESET DRIVE 
~~" THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 


seenenees 


T2?:: 


64$: 


65$: 


66$: 


SEIZE THE DRIVE THROUGH PORT ‘A® BY WRITING 0°S INTO RPDS. 
WRITE 03 INTO RPCS1 THROUGH PORT ‘A’ TO FORCE AN ATTENTION & ILF ERROR. 
WAIT FOR THE DRIVE TO TIMEOUT. ee bon THAT be DRIVE RETURNED TO 


ee. THAT ATTENTION IS SET F 0 
PORT 'B"; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 


TST DRVBAD SYSTEM OK?? 
BEQ 64$ : TAKE BRANCH IF SO 
TRAP CSEXIT 


-WORD 1L10071-. 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA ,@RPCS2 SELECT PORT #A 
@RPDS :$ 


CLR SEIZE THE DRIVE 

MOV #11,aRPCS1 s ISSUE DRIVE CLEAR 

MOV #13, aRPCS1 RELEASE THE DRIVE 

START THE TIMER 

CLR TIME CLEAR THE ELAPSED TIME COUNTER 
MOV #40. ,WATCH 7SET WATCH TO 40. MS 

TST WATCH 

BNE 65$ 

MOVB PORTB,@RPCS2 SELECT PORT #8 

CLR @RPDS SEIZE THE DRIVE THROUGH PORT ‘B' 
MOV #11,aRPCS1 ISSUE DRIVE CLEAR 

MOV #13, aRPCS1 RELEASE THE DRIVE 

sSTART THE TIMER 

CLR TIME CLEAR THE ELAPSED aon COUNTER 
MOV #40. ,WATCH 3SET WATCH TO 40. M 

Mo WATCH 


FRR E AEAEEAEAAAEEEEEEEEEEEEEEEEAEAEEAEREEEEREAEEEEEEREEEREEREREREREREEEEEE 


sSEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA, a@RPCS2 sSELECT PORT 


MOV PORTA,SEIZPT ;STORE eins PORT? S ADDRESS 
CLR @RPDS sWRITE RPDS 
MOV PORTB ,OPPRT :"OPPOSITE* PORT ADDRESS 


eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaeeaaakeeeeeeeeeeeeeeeeeeeeeeeeaeeeeereeeeees 


SFORCE AN ATTENTION BY SETTING ERRORS. 


MOV #3,aRPCS1 sSET ILF ERROR ba: 








| 
aes 


— a 
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070556 005037 


070650 113777 
070656 013737 


071004 Ose 
71010 00513 
71014 


071014 005037 
071020 0 
071026 0 


——— HF 
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*A* TIMEOUT DOES NOT RESET DRIVE 


003716 
000001 


000004 


002246 
002246 


002332 
040000 
002352 


003716 
000001 


000004 
002276 


once7s 
11136 
002406 


002306 
111604 
002266 


111524 
002266 


002332 
4 


002352 
002352 
002336 


START THE TIMER 


CLR 
MOV 
MOVB 
MOV 


ZCLEAR THE ELAPSED TAME COUNTER 
W250. WATCH 3SET WATCH TO 1250. 
PORTB, aRPC LECT PORT 

PORTB, oTeoae :MOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 


[Reeeeeeeeeneeeeneeeeeeeedeedeaeeaeaeteereeteeeeerseeeeteeereeeeeteeereeeeeees 


TWAiT FOR DRIVE TO TIMEOUT 


1$: 


2$: 


a@RPDS :WAIT FOR THE DRIVE TO BE RELEASED 
2$ <BR IF DRIVE RELEASED 
WATCH SWATCH AT ZERO ? 
‘BR IF NOT 
CSERHRD 
26 
ERR11 
#FRMT17,=(SP) 
#1,-(SP5 
P’RO 
CSPNTB 
PORTA, a@RPCS2 :SELECT 


PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


tedden + hatte tg la a aie 


THE ERROR BIT (*ERR*): IN RPDS SHOULD STILL BE SET 


698: 


CKERR LEAR THE "CHECK ERROR’ INDICATOR 
@RPDS ,BADDAT is CONTENTS OF RPDS 

RPDS ,BADADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
#eE TED REGISTER S 


e X eee T L BE 
BADDAT , THPO sMOVE REGISTER CONTENTS TO ‘TMPO’ 
#*CERR,TMPO ;SAVE SPECIFIED BITS 


EXPTED. TMPO :COMPARE THE BITS 
:BR IF OK 

BADDAT TMP4 :COPY "BAD DATA 

TAP :CLEAR THE MASKED BITS 
Tipe EX *EXPTED :*OR® WITH GOOD DATA FOR TYPEOUT 
3 
EM23 
ERR10 
#FRMT17,-(SP) 
#1,-(SP5 
SP,RO 
C$PNTB 
#4,SP 
CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 


SRREEEAEEAEEAAEAEEEEAEAAEEAEEEEAEAERARAAEREAAEEAEEREAERARAAEEEEREEEEEEEEREREEEEE 


THE ERROR REGISTER SHOULD CONTAIN ILF BIT 


CLR 
MOV 
MOV 


CKERR EAR THE "CHECK pERROR® INDICATOR 
@RPER1 ,BADDAT bet en ONTENTS OF 
RPER1,BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 


| 
SEQ 0187 | 


| 
| 
PRR 


— 
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028787 
416 


104456 


VRoR Ook ORO aL 
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VN 
Ww 
NN 
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"A® TIMEOUT DOES NOT RESET DRIVE 
1 002336 MOV TED tz;WHAT REGISTER SHOULD BE 
esi 002332 CMP EXBRED BADDAT t18 THE REGISTER OK ? 
BEQ ‘BR IF OK 
TRAP CSERHRD 
sWORD 4 
“WORD €M10 
“WORD ERR3 
003716 MOV #FRMT17,-(SP) 
000001 MOV #1,=(SP5 
MOV 
TRAP  C$PNTB 
000004 ADD #4,SP 
002276 ns: COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
FRRARAEREEAAEEAEEREEEEEEEEEEEERERAEEREREEREEEREEERERREREEREREEAERREEEEREEERERE 
[THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 
002276 CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 
111266 002332 MOV @RPDS ,BADDAT Gey CONTENTS OF RPDS 
002404 002334 MOV RPDS,BADADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
100000 002336 MOV #ATA.EXPTE iis REGISTER SHOULD BE 
002332 002342 MOV BADDAT, TMPO MOVE ROCISTER CONTENTS TO ‘TMPO* 
077777 002342 BIC H°CATA,TMPO ;SAVE SPECIFIED BITS 
002336 002342 CMP EXPTED, TMPO ;COMPARE THE BITS 
002332 002352 MOV BADDAT, TMP4 ZCOPY "BAD DATA® 
100000 002352 BIC HATA, THPG [CLEAR THE MASKED BITS 
002352 002336 BIS TMP4 .EXPTED :"OR" WITH GOOD DATA FOR TYPEOUT 
TRAP  C$ERHRD 
WOR 
WORD 1 
“WORD R10 
003716 MOV #FERMT17,-(SP) 
000001 MOV #1,-(SP5 
MOV *R0 
TRAP  C$PNTB 
000004 ADD #4, 
002276 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
FF AARAAAAEEEEREEEEEEEEEEEEEEEREREEAAEAEERAEAEEEEEEEEEEEEEEEEEEEEEEEEEREREEEEEEE 
:VERIFY THAT THE DRIVE IS IN NEUTRAL 
002302 CLR RELERR ICLEAR THE "RELEASE ERROR ' INDICATOR 
002404 002334 MOV RPDS,B [FORM THE ADDRESS OF RPDS FOR TYPEOUT 
051700 002336 MOV AS43068. Br ED ;COMPARSION CON NSTAN 
002246 111116 MOVB = PORTA, @RPCS2 is CT PORT 
111114 002346 MOV @RPDS, TMP2 THE DRIVE “STATUS REGISTER FROM PORT A. 
024005 00234 BIC SP IPTORL (OM! ILV. THB CLEA T CARES 
002346 00234 MOV TMP2 , THPO :COPY IT ' 
100100 00234 BIC #ATA‘VV, TMPO 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
002250 111060 MOVB = PORTB, aRPCS 3 
111056 002350 MOV @RPDS. TMPS THE DRIVE STATUS REGISTER FROM PORT B. 
024005 002350 BIC #PIP'URLIOM!ILV, ines 3CLEAR CARES 
002350 002344 MOV TMPS,1 :COPY IT’ INTO ‘TMP1° 
00100 002344 BIC WATA'VV,TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
002342 00234 CMP TMPO, THP1 tI1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


SEQ 0188 


H 15 
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TEST 27 TEST THAT PORT ‘A’ TIMEOUT DOES NOT RESET DRIVE : 


071 901021 BNE 75$ :BR IF NOT 
071 005737 002342 TST TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
071366 001073 BNE 77$ :BR IF NOT . 
071370 104456 TRAP  CSERHRD 
071372 000006 .WORD 6 
071374 010751 “WORD 
071376 013534 <WORD ERR1S 
071400 012746 003716 MOV #FRMT17,-(SP) 
71404 012746 000001 MOV #1,-(SP5 
071410 010600 MOV 
071412 104414 TRAP  CS$PNTB 
071414 062706 000004 ADD #4,SP 
071420 000137 071722 JMP 79$ :BYPASS THE REST OF THE CHECKS 
071424 013737 002346 002332 75$: MOV TMP2 ,BADDAT sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 002250 002266 MOV ' PORTB,PTNBR sSEIZING A id IF TEST SHOWS DRIVE NOT IN NEUTRAL 
071440 113777 002250 110734 MOVB PORTB.a@RPCS2 SELECT PORT B. 
071446 005737 002342 TST TMPO SEE IF — EQ 0 FROM PORT A. 
071452 001414 BEQ 76$ 3BR IF ZERO 
071454 013737 002246 002266 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
1462 013737 002350 002332 MOV at seanpes + "BAD DATA’ Ot ERROR TYPE OUT 
071470 113777 002246 110704 PORTA,a@RPCS2 :SELECT PORT 
071476 005737 002344 TST SEE IF STATUS. EQ ZERO FROM PORT B. 
071502 001025 BNE 77$ : 
1504 012737 177777 002302 76$: MOV #~1,RELERR :SET RELEASE ERROR’ INDICATOR 
071512 012777 000011 110652 MOV #11.aRPCS1 [CLEAR THE DRIV 
071520 012777 000013 110644 V #13, aRPCS1 SRELEASE THE DRIVE 
071526 104456 TRAP  CSERHRD 
071530 11 WORD 
071532 007313 SWORD EM26 
071534 013214 “WORD ERRO 
71536 012746 003716 MOV #FRMT17,-(SP) 
071542 012746 000001 MOV #1,-(SP5 
071546 010600 MOV SP,RO 
071550 104414 TRAP  CS$PNTB 
071552 062706 000004 ADD #4,SP 
071556 013737 002346 002332 77$: #MOV TMP2 ,BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
1564 013737 002246 002266 MOV PORTA, PTNBR SCHANGE PORT 
071572 04273 100000 002332 BIC #ATA,BADDAT *DON' T CHECK THE ATTN BIT 
71600 023737 002336 002332 CMP EXPTED,BADDAT ALL BITS OK ? 
071606 001414 BEQ 78$ [BR IF OK FROM PORT A. 
071610 104456 TRAP  CSERHRD 
071612 000013 .WORD 11 
071614 006072 <WORD M7 
071616 013000 “WORD ERRS 
071620 012746 003471 MOV #FRMT14,-(SP) 
071624 012746 000001 MOV #1,-(SP5 
71630 010600 MOV SP*RO 
071632 104414 TRAP  C$PNTB 
71634 062706 000004 ADD #4,SP 
071640 013737 002350 002332 78%: MOV TMP3 ,BADDAT :CHECK RPDS FOR BIT FAILURES - FROM PORT B. 
071646 013737 002250 002266 MOV PORTB,PTNBR i CHANGE PORT NUMBER 
071654 042737 100000 002332 BIC #ATA,BADDAT CHECK THE ATTN BIT 
71662 023737 0023 002332 CMP EXPTED, BADDAT as 4 le Paes OK FROM PORT B. 
071670 001414 BEQ 9$ :BR IF 
071672 104456 TRAP CS$ERHRD 
071674 000014 .WORD 12 
071676 006072 “WORD M7 
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*A* TIMEOUT DOES NOT RESET DRIVE 


003522 
000001 


000004 


002332 
100000 
002352 


003716 
000001 


000004 
002276 


002246 
110306 
000011 
000013 


002304 
000050 
002306 


110310 


110266 
110260 


002306 


798: 


-WORD ERRS 
MOV #FRMT15,=(SP) 
MOV #1.5(SP5 


MOV 
TRAP  CS$PNTB 
ADD #4,SP 


SRA EAAAAEAEAAEEAEEAAEREEAEEAEAAAAERAAAEAERERAAEEAEEAAERERAEEEEAAEREEAEEEEEREEE 


THE ATTENTION BIT FOR PORT B SHOULD NOT GE SET 


80$: 


82$: 


L10071: 


MOVB PORTB,@RPCS2 SELECT PORT B 
MOV PORTB,PTNBR ag 5 el ADDRESS TO LOCATION FOR TYPEOUT 


CKERR THE "CHECK ERROR’ INDICATOR 
MOV @RPDS ,BADDAT cit CONTE NTS OF RPDS 
MOV RPDS BADADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
CLR EXPTED SUNAT REGISTE 
MOV BADDAT, TMPO sMOVE REGISTER CONTENTS TO ‘TMPO* 
BIC #°CATA,TMPO SAVE SPECIFIED BITS 
CMP EXPTED, TMPO ; COMPAR eT € BITS 


BEQ 8 

MOV BADDAT , TMP4 [COPY "BAD DATA' 

BIC MATA, TMP4 SCLEAR THE MASKED BITS 

BIS TMP4 ,EXPTED :"OR* WITH GOOD DATA FOR TYPEOUT 
* CSERHRD 


3 
ro EMS2 


.WORD ERR 

MOV #FRMT17,=(SP) 

MOV #1,-(SP5 

MOV SP, 

TRAP  C$PNTB 

ADD #4, 

COM CKERR zSET THE REGISTER COMPARE ERROR INDICATOR 


sCLEAR ATTENTION BIT FOR PORT A 
MOVB PORTA,@RPCS2 ;SELECT PORT #A 


CLR aRPDS SEIZE THE DRIVE 

MOV #11,aRPCS1 ISSUE DRIVE CLEAR 

MOV #13, aRPCS1 RELEASE THE DRIVE 

START THE TIMER 

CLR TIME CLEAR THE ELAPSED TIME COUNTER 
MOV #40. ,WATCH 3SET WATCH TO 40. MS 

i WATCH 


TRAP CSETST 


J1 
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TEST 28 TEST THAT PORT °B* TIMEOUT DOES NOT RESET DRIVE 


J .SBTTL TEST 28 TEST THAT PORT "B* TIMEOUT DOES NOT RESET DRIVE 

; :#VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

3 is A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RPDS. 

4 :* B. WRITE 1°S INTO RPER1 THROUGH PORT 'B’. 

3* 

9 :* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
10 te NEUTRAL; THAT ATTENTION IS SET FOR PORT 'B* AND IS NOT SET FOR 
1 is PORT 'A*; AND THAT BOTH PORTS ste 1°S IN THE ERROR REGISTER. 
13 ‘ 

14 072134 T28:: 
18 072134 005737 002340 TST DRVBAD sSYSTEM 0K2? 
072140 001402 BEQ 64$ STAKE BRANCH IF SO 
072142 104432 TRAP  C$EXIT 
072144 001526 «WORD 110072-. 
072146 64S: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
072146 113777 002246 110226 MOVB PORTA,aRPCS2 =; SELECT PORT #A 
072154 005077 110224 CLR @RPDS TSEIZE THE DRIVE 
072160 012777 000011 110204 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
072166 012777 000013 110176 MOV #13,aRPCS1 ?RELEASE THE DRIVE 
SSTART THE TIMER 
072174 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
072200 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. 
072206 005737 002306 65$: ‘TST WATCH 
072212 001375 BNE 65$ 
072214 113777 002250 110160 MOVB PORTB,aRPCS2 =;SELECT PORT #8 
072222 005077 110156 CLR @RPDS SEIZE THE DRIVE THROUGH PORT ‘B’ 
072226 012777 000011 110136 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
072234 012777 000013 110130 MOV #13, aRPCS1 RELEASE THE DRIVE 
START THE TIMER 
072242 005037 002304 CLR TIME :CLEAR THE ELAPSED {IME COUNTER 
072246 012737 000050 002306 MOV #40. WATCH ?SET WATCH TO 40. 
072254 005737 002306 66$: ‘TST WATCH 
72260 001375 BNE 


SF RAARAAEEEEEEEAEEEEEEEEEEEEEEEERAAEAEEEEEEREERERERAEEEEEEEEEREEREREEEEEEREREREE 


sSEIZE THE DRIVE THROUGH PORT B 


072262 113777 002250 110112 MOVB PORTB,@RPCS2 ;SELECT PORT B 

072270 013737 002250 002270 MOV PORTB,SEIZPT #STORE ag tig PORT'S ADDRESS 
072276 005077 110102 CLR @RPDS WRITE RPDS 

072302 013737 002246 002272 MOV PORTA, OPPRT :"OPPOSITE* PORT ADDRESS 


seeteeheeeeeeeeeeeeeeaeeeeKeeekeeeeaaeeeanaeaeneeasaeeeeeeeeeeaeeeeeeeeeeere 


sFORCE AN ATTENTION BY SETTING ERRORS. 
072310 012777 000003 110054 MOV #3,aRPCS1 sSET ILF ERROR BIT 





k 15 
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CZRJNAO RPO? DUAL PORT T 
*B* TIMEOUT DOES NOT RESET DRIVE 


TEST 28 TEST THAT PORT 


sSTART THE TIMER 


072316 005037 002304 CLR CLEAR THE ELAPSED TIME COUNTER 
072322 012737 002342 002306 MOV W250. WATCH SET WATCH TO 1250. MS 
072330 113777 002246 110044 MOVB = PORTA, aRPCS2 SELECT PORT 
072336 013737 002246 002266 MOV PORTA, OINBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
pee eeeeeeeeneeneeeeeeeeeeeeeeeneaaeedadenaetadteenteenreeeteeeeeeeeeeeeeerere 
tUAIT FOR DRIVE TO TIMEOUT 
072344 005777 110034 1$: TST @RPDS :WAIT FOR THE DRIVE TO BE RELEASED 
072350 001017 BNE 2$ BR IF DRIVE RELEASED 
072352 005737 002306 TST WATCH :WATCH AT ZERO ? 
072356 001372 BNE 1$ “BR IF NOT 
072360 104456 TRAP  C$ERHRD 
072362 000032 «WORD 26 
072364 010177 WORD 
72366 013320 -WORD ERR11 
072370 012746 003716 MOV #FRMT17,<(SP) 
072374 012746 000001 MOV #1,=(SP5 
072400 010600 MOV Pp, 
072402 104414 TRAP C$PNTB 
72404 062706 000004 pa ADD #4,SP 
72410 113777 002250 107764 MOVB = PORTB, aRPCS2 ZSELECT PORT B 
072416 013737 002250 002266 MOV PORTB,PTNBR sMOVE’ PORT ADDRESS TO LOCATION FOR TYPEOUT 
peeeeeeeeeeneeeneeeeteeeeeereeeneeneeeaeeeeteeeeeereeeeeeeeeeeeeeneeeeeeeeeees 
?THE ERROR BIT ("ERR") IN RPDS SHOULD STILL BE SET 
072424 005037 002276 CLR CKERR LEAR THE * CHECK pERROR® INDICATOR 
072430 017737 107750 002332 MOV @RPDS ,BADDAT is CONTENTS OF 
72436 013737 002404 002334 MOV RPDS ,BADADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
072444 012737 040000 002336 MOV #ERR,EXPTED z:WHAT REGISTER LD BE 
072452 013737 2332 002342 MOV BADDAT, TMPO thov E REGISTER CONTENTS TO ‘TMPO 
72460 042737 137777 002342 BIC #*CERR, TMPO # SAVE SPECIFIED BITS 
072466 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
072474 001427 BEQ 69 IF Ok 
072476 013737 002332 002352 MOV BADDAT, TMP4 :COPY "BAD DATA 
72504 042737 040000 002352 BIC #ERR, TAPG ‘CLEAR THE MASK ED BITS 
072512 053737 002352 002336 BIS TMP4 -EXPTED :"OR' WITH GOOD DATA FOR TYPEOUT 
072520 104456 TRAP  CS$ERHRD 
072522 000003 «WORD 3 
072524 007123 .WORD E 
072526 013262 .WORD ERR10 
72530 012746 003716 MOV #FRMT17,=(SP) 
072534 012746 000001 MOV 1,-(SP5 
072540 010600 MOV SP,RO 
072542 104414 TRAP  C$PNTB 
072544 062706 000004 ADD #4,SP 
072950 005137 002276 698: COM CKERR ZSET THE REGISTER COMPARE ERROR INDICATOR 
. SERA AEAAAAEAARAEEAEAAAEEEAAAAAAAARAAAAAEAAERAEAAEAAEAAAERAEEAAAAEAEREREREEEEEEE 
THE ERROR REGISTER SHOULD CONTAIN ILF BIT 
072554 005037 002276 CLR CKERR :CLEAR THE "CHECK ERROR" INDICATOR 


017737 107622 002332 MOV @RPER1,BADDAT ;GET CONTENTS OF 
072566 013737 002406 002334 MOV RPER1,BADADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
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072574 012737 000001 002336 MOV #1, EXPTED ZZWHAT REGISTER SHOULD BE 
072602 023737 002336 002332 CMP XPTED,BADDAT :18 THE REGISTER OK 
072610 001416 BEOQ 1$ :BR IF OK 
072612 104456 TRAP CSERHRD 
072614 000004 .WORD 4 
072616 006146 -WORD €M10 
072620 012654 -WORD ERR3 
072622 012746 003716 MOV #FRMT17,=(SP) 
072626 012746 000001 MOV #1,-(SP5 
72632 010600 MOV SP, 
072634 104414 TRAP CSPNTB 
072636 062706 000004 ADD 4,$P 
072642 005137 002276 ns: COM CRERR zSET THE REGISTER COMPARE ERROR INDICATOR 
FRRAAAAAAAAAAEAAE ATES ESTEE EE AEEEAEEAEAEREREEAEREEEREEEEEEEEEEEEEREEEEEEEEREEE 
[THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 
072646 005037 002276 CLR CKERR LEAR THE "CHECK ERROR" INDICATOR ° 
072652 017737 107526 002332 MOV @RPDS ,BADDAT ois’ CONTENTS OF RPDS 
876 013737 002404 002334 MOV RPDS ,BADADR : Fon REGISTER OOORESS a ERROR MESSAGE 
072666 012737 100000 002336 MOV #ATA,EXPTED tz:WHAT REGISTER SHOULD BE 
072674 013737 002332 002342 MOV BADDAT, TMPO sMOVE REGISTER CONTENTS TO *TMPO" 
072702 042737 077777 002342 BIC #*CATA.TMPO SAVE SPECIFIED BITS 
072710 023737 002336 002342 CMP EXPTED, TMPO :COMPARE THE BITS 
072716 001427 BEQ :BR IF OK 
072720 013737 002332 002352 MOV BADDAT, TMP4 :COPY “BAD DAT 
072726 2737 100000 002352 BIC WATA, TMP :CLEAR THE PARED BITS 
072734 053737 002352 002336 BIS TMP. jEXPTED :*OR' WITH GOOD PATA FOR TYPEOUT 
072742 104456 TRAP CSERHRD 
072744 000003 «WORD 3 
072746 010374 ,WORD = EM41 
072750 013262 “WORD ERR10 
072752 012746 003716 - MOV #FRMT17,=(SP) 
072756 012746 000001 MOV #1,-(SP5 
72762 010600 MOV PRO 
072764 104414 TRAP CS$PNTB 
072766 062706 000004 ADD #4,SP 
072772 005137 002276 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


072776 73$: 


FF RARARAEEAREREEEEREREEEEEEEEAEREEEAEEAEEEREAEEEEEEERAEEEREEEEEAEAEEEEEEEREREEEEEEEEE 


VERIFY THAT THE DRIVE IS IN NEUTRAL 


072776 005037 002302 CLR RELERR ich LEAR THE "RELEASE ERROR * INDICATOR 
073002 013737 002404 002334 MOV RPDS ,BADADR THE ADDRESS OF RPDS FOR TYPEOUT 
073010 012737 051700 002336 MOV #51700, EXPTED ;EORPARSION CON NSTAN ANT 
073016 113777 002246 107356 MOVB PORTA, @RPCS2 “ESELECT 
073024 017737 107354 002346 MOV @RPDS.TMP2 GET THE PORIVE “STATUS REGISTER FROM PORT A. 
073032 042737 024005 002346 BIC #PIP!URL!OM! ILV, TMP Pe :CLEAR DONT CARES 
73040 013737 002346 002342 MOV TMP2 - TPO sCOPY IT INTO *TMPO® 
073046 042737 100100 002342 BIC WATA'VV,TMPO §:CLEAR PORT DEPENDENT BITS FROM THE COPY 
073054 113777 002250 107320 MOVB = PORTB, aRPCS2 SELECT PORT 8. 
073062 017737 107316 002350 MOV @RPDS, TMP THE DRIVE STATUS REGISTER FROM PORT B. 
073070 042737 024005 002350 BIC #PIP!URLIOM!ILV, ines ZCLEAR DONT CARES 
73076 013737 002350 002344 MOV TMP3, TMP1 :COPY IT INTO "TMP1° 
073104 042737 100100 002344 BIC MATA'VV,TMP1 © :CLEAR PORT DEPENDENT BITS FROM THE COPY 
073112 023737 002342 002344 CMP TMPO, TMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 








CZRJNAO RPO7 DUAL PORT 
TEST 28 TEST THAT PORT 


073120 
073122 


00108) 
0057357 
001073 
04456 


gwisser 
par Ser eer Serer 
wi 
pty 


_ 
So 
xs 
-_ 


Se 
VIS 
GVINSERSSE 


77 


Ss=SS83s=22 
SSS 
Ww 
N 


ooo 
par Peer Pers 
ror 
nN 
vin~s 
AN 


oooooo 
2323-300 
Ne 
r ob oh 
Ane W— 


56 
000014 
006072 


4 15 
rest MACRO V04.00 1=JAN-83 15:44:57 PAGE 54-5 


TIMEOUT DOES NOT RESET DRIVE 


BNE 75$ 
002342 TST TMPO 
BNE 77$ 
TRAP  CSERHRD 
.WORD 6 
“WORD EM46 
“WORD ERR15 
003716 MOV #ERMT17,-(SP) 
000001 MOV #1,=(SP) 
V SP-R 
TRAP  C$PNTB 
0004 ADD #4,SP 
073462 JMP 79$ 
002346 002332 75$: # MOV TMP2 ,BADDAT 
002250 002266 MOV PORTB,PTNBR 
002250 107174 MOVB = PORTB aRPCS2 
002342 TST TMPO 
BEQ 76$ 
002246 002266 MOV PORTA, PTNBR 
002350 002332 MOV TMP3 ,BADDAT 
002246 107144 MOVB = PORTA, aRPCS2 
234 TST TMP1 
BNE 77$ 
177777 002302 76$: MOV #-1,RELERR 
000011 107112 MOV #11, aRPCS1 
000013 107104 MOV #13, aRPCS1 
TRAP CSERHRD 
eWORD 9 
“WORD EM26 
“WORD ERR 
003716 MOV #FRMT17,-(SP) 
000001 MOV #1,=(SP5 
MOV P, 
TRAP  C$PNTB 
000004 ADD #4,SP 
002346 002332 77$: MOV TMP2 ,BADDAT 
002246 002266 MOV PORTA, PTNBR 
100000 002332 BIC #ATA,BADDAT 
2336 002332 CMe EXPTED,BADDAT 
TRAP — CSERHRD 
.WORD 17 
“WORD EM? 
"WORD ERRS 
003471 MOV #FRMT14,-(SP) 
000001 MOV #1,-(SP5 
MOV 
TRAP  C$PNTB 
000004 ADD #4,SP 
002350 002332 78$: MOV TMP3 ,BADDAT 
ns a am 
002336 002332 CMP XPTED ,BADDAT 
TRAP CSERHRD 
.WORD 12 


~WORD EM7 


3BR IF _NOT 
sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
;BR IF NOT 


sBYPASS THE REST OF THE CHECKS 

zSET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

3 SEE i ao EQ 0 FROM PORT A. 


sR I 
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
:°BAD DATA’ FOR ERROR TYPE OUT 

SELECT PORT A. 

SEE _IF STATUS EQ ZERO FROM PORT B. 


3BR_IF NO 

sSET ‘RELEASE ERROR® INDICATOR 
CLEAR THE DRIVE 

sRELEASE THE DRIVE 


sLOOK FOR BIT FAILURES WHEN RPDS READ 
3CHANGE PORT 

3DON'T CHECK THE ATTN BIT 

sALL BITS OK ? 

:BR IF OK FROM PORT 4. 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
HAN RT NUMBER 


sCHANGE PO 

3DON'T CHECK THE ATTN BIT 
3SEE IF READ OK FROM PORT B. 
;BR IF OK 


SEQ 0194 














073652 
073656 
073664 
073670 
22 073672 
073672 
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106712 
002266 


002332 
002334 


002342 
002342 
002342 
002352 


002352 
002336 


106550 


106526 
106520 


002306 


- WORD 
MOV 
MOV 


MOV 
TRAP 
ADD 


ERRS 
#FRMT15,-(SP) 
#1 


,= (SPS 
SP‘ RO 
C$PNTB 

#4,SP 


15 


$ 
kethkeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeneeneeeeereeeeeeeee 


THE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 


3SELECT 


PORT A 
MOVE’ SoH te tae TO LOCATION FOR TYPEOUT 


LEAR THE "CHECK ERROR’ INDICATOR 
Acai CONTENTS OF RP 


at adele oe ania OF ERROR MESSAGE 
T REGISTER SHOULD 
MOV VE REGISTER CONTENTS TO *TMPO’ 
SAVE SPECIFIED BITS 
3 COMPARE THE BITS 
F OK 
;COPY “BAD 
ZCLEAR THE MASK RED BITS 
;"OR* WITH GOOD DATA FOR TYPEOUT 


:SET THE REGISTER COMPARE ERROR INDICATOR 


sSELECT PORT 48 
SEIZE THE DRIVE 
ZISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


:CLEAR THE ELAPSED TIME COUNTER 
SET WATCH TO 40. MS 


MOVB PORTA, aRPCS2 
MOV PORTA,PTNBR 
CLR R 
MOV SRPOS,BADDAT 
MOV RPDS ,BADADR 
CLR EXPTED 
MOV BADDAT, TMPO 
BIC #*CATA, TMPO 
CHP EXPTED, TMPO 
MOV BADDAT, TMP4 
BIC MATA, TMP 
BIS TMP4 ,EXPTED 
TRAP  C$ERHRD 
.WORD 3 
.WORD EMS2 
.WORD ERR 
MOV #FRMT17,=(SP) 
MOV #1,-(SP5 
MOV SP, 
TRAP CSPNTB 
ADD 4,$P 
COM CKERR 
80$: 
:CLEAR ATTENTION BIT FOR PORT B 
MOVB = PORTB, aRPCS2 
CLR @RPDS 
MOV #11,aRPCS1 
MOV #13, aRPCS1 
:START THE TIMER 
CLR TIME 
MOV #40. ,WATCH 
82$: TST WATCH 
BNE 82$ 
L10072: 
TRAP —- CSETST 


———— ee  —C SC 
’ 


SEQ 0195 | 
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NOVESWN—OVONOUSWN— 


OS aoa a os 


073766 
073774 
074002 
074006 


074014 
074020 


074022 


SS3s=s8sSs 

VVAWAN 
Vans 
N 


113777 
013737 
005077 


013737 


002340 


002304 
000050 
002306 
002250 
106416 
000011 
000013 


002246 
00224 
10634 


002250 


106466 
105444 


106436 
002306 
106420 


106376 
106370 


002306 


106352 
002270 


002272 


-SBTTL TEST 29 PORT ‘A’ RETRIGGER BY DEMAND 
ggpenks THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


Sete Se Ge Ge Ge Ge Fe Ge Se & 
ae eee ee anne 


A. 
8. 
C. 


T29:: 


64$: 


65$: 


66$: 


IN 
Fg REE EEER EE EEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEEREREEAEREREEEEEEEEREREEEE 


PURAeeeKeeeReeARAeHAeeeeeeeeeeekeneeeaeeeeeeeeeeeKeeeAeeeeeeeneeeeeeeeeeeneees 


SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RPDS. 
WAIT 500 MS AND READ RPDS THROUGH PORT ‘A’. 


VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR = 25% OF THE SPECIFIED 
TIME, (THE MEASUREMENT IS MADE FROM STEP ‘B’.) 


rt ae eM THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


TST DRVBAD SYSTEM OK? 
BEQ 64% 7 TAKE BRANCH IF SO 
TRAP CSEXIT 


-WORD 110073-. 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, @RPCS2 SELECT PORT #A 


CLR @RPDS sSEIZE THE DRIVE 

MOV #11,aRPCS1 ISSUE DRIVE CLEAR 

MOV #13,aRPCS1 RELEASE THE DRIVE 

sSTART THE TIMER 

CLR TIME CLEAR THE Wt ae ate COUNTER 
MOV #40. ,WATCH 7SET WATCH TO 40. Mm 

TST WATCH 

BNE 65$ 

MOVB PORTB ,@RPCS2 SELECT PORT #8 

CLR @RPDS ;SEIZE THE DRIVE naa PORT ‘8° 
MOV #11,aRPCS1 s ISSUE DRIVE CLEAR 

MOV #13,aRPCS1 RELEASE THE DRIVE 

sSTART THE TIMER 

CLR TIME CLEAR THE ELAPSED te COUNTER 
MOV #40. ,WATCH ;SET WATCH TO 40. M 

TST WATCH 


SEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA, aRPCS2 ;SELECT PORT 

MOV PORTA,SEIZPT ;STORE SEIZING PORT* S ADDRESS 
CLR @RPDS sWRITE RPDS 


MOV PORTB,OPPRT s*OPPOSITE’ PORT ADDRESS 


SWAIT 500 MS 
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START THE TIMER 


074050 005037 002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
074054 012737 000764 002306 MOV #500. ,WATCH 3SET WATCH TO 500. 
074062 005737 002306 1$: TST WATCH ‘WATCH EGIL T0 7ERO® 
74066 001375 BNE 1$ :BR IF NO 
sSTART THE TIMER | 
074070 005037 002304 CLR —srTIME CLEAR THE ELAPSED TIME COUNTER 
074074 012737 002342 002306 MOV #1250. ,WATCH SET WATCH TO 1250. MS 
s eeRERERREREREREREEEEREEEERERERARERRERERREREREREREEREREREERHRERER EERE EREREEEEE 
*RETRIGGER THE TIMEOUT ONE=SHOT | 
074102 005777 106276 TST @RPDS ZRETRIGGER THE ONE-SHOT 
074106 113777 002250 106266 MOVB = PORTB, aRPCS2 SSELECT PORT 
074114 013737 002250 002266 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
074122 005777 106256 2$: TST @RPDS sWAIT FOR T | 
074126 001017 BNE 3$ :BR IF TIMEOUT OCCURRED 
074130 005737 002306 TST WATCH SWATCH EQUAL TO ZERO ? 
074134 001372 BNE 2$ BR IF 
074136 104456 TRAP  CSERHRD 
074140 000033 .WORD 27 
074142 010177 -WORD EM36 
074144 013320 -WORD ERR11 
074146 12746 003716 MOV #FRMT17,=(SP) 
074152 012746 000001 MOV #1,-(SP5 
074156 010600 MOV SP.R 
074160 104414 TRAP —- C$SPNTB 
074162 062706 000004 ADD #4,SP 
074166 013737 002304 002324 3S: MOV TIME, TIMES :SAVE THE ELAPSED TIME VALUE | 
FARRAR AAAREEERAEEEEEREEEEEAREEEAAEEAEEEEEEREREREREREEREEEEEEEEREEEEEREREREREEEE | 
ZVERIFY THAT THE DRIVE IS IN NEUTRAL | 
074174 005037 002302 CLR RELERR CL EAR THE "RELEASE ERROR ' INDICATOR 
074200 013737 002404 002334 MOV RPDS ,BADADR ORM THE ADDRESS OF RPDS FOR TYPEOUT | 
074206 012737 011700 002336 MOV AHOL IPCH*DPRIDRYIVY EXPTED : COMPARISON CONSTANT | 
074214 113777 002246 106160 MOVB = PORTA, aRPCS 3SELECT PO 
074222 017737 106156 002346 MOV @RPDS, TMP THE DRIVE “STATUS REGISTER FROM PORT A. 
074230 042737 024005 002346 BIC #PIPTORL OM! ILV, TMS CLEA ARES | 
74236 013737 002346 002342 MOV TMP2 , THPO :COPY IT INT 
074244 042737 100100 002342 BIC WATA'VV,TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
074252 113777 002250 10612 MO PORTB,aRPCS2 SELECT PORT B. | 
074260 017737 106120 002350 MOV @RPDS, THPS T THE DRIVE STATUS REGISTER FROM PORT B. | 
74266 042737 024005 002350 BIC #PIP!URL ‘OM! ILV, iM PS ZCLEAR DONT CARES 
074274 013737 002350 002344 MOV TMP, THPi :COPY IT INTO *TMP1° 
074302 042737 100100 002344 BIC WATA'VV, TMPI 3CLEAR PORT DEPENDENT BITS FROM THE COPY 
074310 023737 002342 002344 CMP TMPO, TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
074316 001021 BNE 69$ F 
074320 005737 002342 TST TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
074324 001073 BNE 71$ :BR IF NOT 
074326 104456 TRAP CSERHRD 
4330 000006 -WORD 6 
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003716 
000001 


177777 
000011 
000013 


003716 
000001 


000004 
002346 
002246 
002536 


003471 
000001 


003522 
000001 


000004 


002332 
002266 
002332 


002332 
002266 
002332 


69$: 


70$: 


71$: 


72$: 


73$: 
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ERR15 
#ERMT17,<(SP) 
#1,-(SP5 

S 

CSPNTB 
TMP2,BADDAT 


PORTB,PTNBR 
PORTE. *@RPCS2 
TMPO 


70$ 

PORTA, PTNBR 

TMP3, Bandar 

PORTA, @RPCS2 
TMP1 


_— 
EM27 


#FRMT17,=(SP) 
#1,-(SP5 


SP’RO 

CS$PNTB 

#4,SP 

TMP2 ,BADDAT 
PORTA, PTNBR 
EXPTED BADDAT 
CSERHRD 

11 

EM7 

ERRS 
#ERMT14,-(SP) 
41,=(SP) 
SP.RO 

CSPNTB 

44,5 

T™HeS BADDAT 
PORTB,PTNBR 
EXPTED ,BADDAT 
CSERHRD 

i2 

EM7 


ERRS 
#FRMT15,-(SP) 
#1,=(SP5 


SP,RO 
copute 


+ - — 


SEQ 0198 | 


sBYPASS THE REST OF YHE CHECKS 
3SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;SELEC CT PORT B. 

SEE IF STATUS ES 0 FROM PORT A. 


3 IF ZERO 
4 tt Sd A! IF TEST SHOWS DRIVE NOT IN NEUTRAL 
: "BAD FOR ERROR TYPE OUT 

isevecT T A. ‘ 

3 SEE Md STATUS EQ ZERO FROM PORT 6B. 


:BR 
3SET he ae ERROR® INDICATOR 
CLEAR IVE 

RELEASE THE DRIVE 


:LOOK FOR MY cues WHEN RPDS READ 
3 CHANGE PORT NUMBER 

ALL BITS OK ? 

BR IF OK FROM PORT A. 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
; CHANGE POR 

SEE IF READ OK FROM PORT B. 
BR IF OK 
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SEERA AAAEAAAAEEEETEREEAEEAAAAAAAERAAEAAAAAAEAAERAAEAAERERAAEAEREEAEREREEEEEE 


CHECK THE TIME FROM RETRIGGER TO TIMEOUT 


074644 023737 002324 002312 CMP TIMES, TIMEAP sMEASURED TIME GREATER THAN +25% TOLERANCE ? 
074652 003020 BGT 4$ 2BR IF 
074654 023737 002324 002314 CMP TIMES, TIMEAM sMEASURED TIME LESS THAN =-25% TOLERANCE 
074662 002014 BGE 4$ :8R IF NOT 
074664 104456 TRAP CSERHRD 
000034 WORD 28 
074670 007250 «WORD 
074672 013320 WORD ERR11 
074674 012746 003471 MOV #FRMT14,=(SP) 
074700 012746 000001 MOV #1,-(SP) 
074704 010600 MOV P, 
074706 104414 TRAP CSPNTB 


074710 062706 000004 ADD #4,SP 
074714 4$: 

116 074714 L10073: 
074714 TRAP CSETST 
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1 -SBTTL TEST 30 PORT ‘'B* RETRIGGER BY DEMAND 
5 :VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
2 ie A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTO RPDS. 
4 i B. WAIT 500 MS AND WRITE 0°B INTO RPDS THROUGH PORT ‘A’. 
9 i* (C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR = 25% OF THE SPECIFIED 
19 :* TIME. (THE MEASUREMENT IS MADE FROM STEP 'B’.) 
12 [* D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
13 3* BIT IS SET. 
14 3 
15 
16 074716 T30:: 
20 074716 005737 002340 TST DRVBAD SYSTEM OK? 
074722 001402 BEQ 64$ TAKE BRANCH IF SO 
074724 104432 TRAP CSEXIT 
074726 001010 eWORD 1L10074-. 
074730 64$: 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
074730 113777 002246 105444 MOVB PORTA, @RPCS2 sSELECT PORT #A 
074736 005077 105442 CLR @RPDS SSEIZE THE DRIVE 
074742 012777 000011 105422 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
074750 012777 0600013 105414 MOV #13, aRPCS1 SRELEASE THE DRIVE 
START THE TIMER 
074756 005037 002304 CLR TIME 3;CLEAR THE ELAPSED TIME COUNTER 
074762 012737 000050 002306 MOV #40. ,WATCH 3SET WATCH TO 40. MS 
074770 005737 002306 65$: TST WATCH 
074774 001375 BNE 65$ 
074776 113777 002250 105376 MOVB PORTB,a@RPCS2 sSELECT PORT #8 
075004 005077 105374 CLR @RPDS SSEIZE THE DRIVE Tunouen PORT ‘B’ 
075010 012777 000011 105354 MOV #11,aRPCS1 Zs ISSUE DRIVE CLEAR 
075016 012777 000013 105346 MOV #13, aRPCS1 SRELEASE THE DRIVE 
START THE TIMER 
075024 005037 002304 CLR TIME CLEAR THE Wt ae i COUNTER 
075030 012737 000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. 
075036 005737 002306 66$: TST WATCH 
075042 001375 E 
Eris itis i iit tect iii iti tii titi iii i iii iiiiiiiiiiiiititiiitiittitii tii i tii itis: 
;SEIZE THE DRIVE THRCUGH PORT B 
075044 113777 002250 105330 MOVB PORTB ,@RPCS2 ;SELECT PORT B 
075052 013737 002250 002270 MOV PORTB,SEIZPT +STORE st IZING PORT'S ADDRESS 
075060 005077 105320 CLR @RPDS WRITE RPDS 
075064 013737 002246 002272 MOV PORTA,OPPR? 3OPPOSITE* PORT ADDRESS 


eeeeeeeeeeeeeeKeeeee ee eH eee eee eeeAeeeeeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeeeeeee 


SWAIT 500 MS 
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075072 
075076 
04 


075204 
075210 


075216 


075352 


002304 
002342 


105254 


003716 
000001 


000004 
002304 


002342 


EMAN 


002306 


002306 


105244 
002266 


002324 


002334 


002344 


1$: 


sSTART THE TIMER 


CLR TIME 

MOV #500. ,WATCH 
TST WATCH 

BNE 1$ 

sSTART THE TIMER 


CLR TIME 
MOV #1250. ,WATCH 


CLEAR THE ELAPSED TIME COUNTER 
3SET WATCH TO 500. MS 
sWATCH EQUAL TO ZERO 

R IF NOT 


sCLEAR THE et 5 J» COUNTER 
SET WATCH TO 1250. 


CE TOOT tas nos RO vee A R. _. . eri 


:RETRIGGER THE TIMEOUT ONE~SHOT 


TST @RPDS 
MOVB PORTA, a@RPCS2 
MOV PORTA, PTNBR 
2$: TST @RPDS 
BNE 3$ 
TST WATCH 
BNE 
TRAP  CS$ERHRD 
«WORD 27 
. WORD 
.WORD ERR11 
MOV #FRMT17,-(SP) 
MOV #1,-(SP5 
MOV SP,RO 
TRAP  C$PNTB 
ADD #4,SP 
3$: MOV TIME , TIMES 


arth s3 AL. ONE=-SHOT 


;SELE 
MOVE” PORT “ADDRESS TO LOCATION FOR TYPEOUT 
-_* FOR TIMEOUT 
R_IF TIMEOUT OCCURRED 
WATCH EQUAL TO ZERO ? 
BR IF NOT 


zSAVE THE ELAPSED TIME VALUE 


FF EERE AREEREEREEREREEEEEEEEEREREREEEREREAEKEEEEEEEEEREEEEEEAEEEERAEEEEEEEEREREE 


VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR 
MOV RPDS ,BADADR 


sCLEAR_THE ‘RELEASE ERROR ° INDICATOR 
FORM THE ADDRESS OF RPDS FOR TYPEOQUT 


#MOL 'PGM!DPR!DRY! VV, EXPTED ar’ GOMPARISON CONSTANT 


MOV 
a PORTA, @RPCS2 


:SELECT 
T THE PORIVE STATUS REGISTER FROM PORT A. 
DONT CARES 


Vv ’ 
BIC PPIPIORL COM! ILV, TPZ 3 CLEA 
MOV MP2, TM 3 


IT IN 
3CL Lee den oe BITS FROM THE COPY 
eer Th THE *ORIVE “STATUS REGISTER FROM PORT B. 
DONT CARES 


MOV @RPDS, TMP 
BIC #PIP!URL'OM!ILV, TH sCLe 


MOV TMP3, TMP1 
BIC WATAVV, TMP1 
CMP THPO, *TMP1 


AR 
:¢ a sate *TMP1° 
7 CLEAR DEPENDENT BITS FROM THE COPY 
31S i “STATUS REGISTER THE SAME FROM BOTH PORTS ? 


3BR I 
REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 


SEQ 0201 





CZRJNAO RPO? DUAL 
TEST 30 PORT ‘B 


anv 
wa 
a 


003716 
000001 


-OCOCooo 

eae 
=NESLN 
GERSSOE 


=SS8e 
Rae 
Srquey 
S35 
Nm ™m 
Foye 
~ oO 


esseses 


177777 
000011 
000013 


003471 
000001 


706 000004 
002350 


003522 
000001 


000004 


002332 


104724 


002302 
104672 
104664 


002332 
002266 
002332 


002332 
002266 
002332 


69$: 


70$: 


71$: 


72$: 
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* RETRIGGER BY DEMAND 


CS$PNTB 
#4,SP 

73 

TMP2 ,BADDAT 


PORTB,PTNBR 
PORTB, aRPCS2 
TMPO 


70$ 

PORTA, PTNBR 
TMP3, BADDAT 
PORTA, e@RPCS2 
71$ 

#~1 ,RELERR 
#11, aRPCS1 
#13, aRPCS1 
CSERHRD 

8 

EM27 


#ERMT17,=(SP) 
#1,-(SP5 


SP*RO 

CS$PNTB 

#4,SP 

TMP2 ,BADDAT 
PORTA, PTNBR 
EXPTED .BADDAT 
CSERHRD 

11 

EM? 

ERRS 
#FRMT14,-(SP) 
#1,=(SP5 
SP,RO 

CS$PNTB 

#4 93? 
TMP3,BADDAT 
PORTB,PTNBR 
EXPTED ,BADDAT 
CSERHRD 

12 

EM7 


ERRS 
#FRMT15,=(SP) 
#1,-(SP) 


SP,RC 
C$PNTB 
#4,SP 


sBYPASS THE REST OF THE CHECKS 

7SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT I IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3 SEE IF STATUS EQ 0 FROM PORT A, 


SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
3 <BAD DATA, FO FOR ERROR TYPE OUT 
SEE IF STATUS "EQ ZERO FROM PORT B. 


:SET ee ERROR® INDICATOR 
sCLEAR THE DRIVE 
RELEASE THE DRIVE 


;LOOK FOR oY Lee WHEN RPDS READ 
3 CHANGE PORT NUMBER 

ALL BITS OK 

3BR IF Ok PROM PORT A. 


CHECK RPDS FOR BIT FAILURES = FROM PORT B. 
CHANGE PORT NUMBER 

sSEE IF READ OK FROM PORT B. 

BR IF OK 


SEQ 0202 





023737 


Bo r0E8 
002014 


104456 


002324 002320 
002324 002322 


16 
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RARER AAAAAAEAAAAAAEEAAAAAAAAERAAAERARERAEEAAAAERAEEREREKEAAAAEEAREEEREREEE 


StHECK THE TIME FROM RETRIGGER TO TIMEOUT 


4$: 
L10074: : 





TIMES, TIMEBP MEASURED, TIME GREATER THAN #25% TOLERANCE ? 
TIMES, TIMEBM MEASURED TIME LESS THAN -25% TOLERANCE 
CSERHRD : 

28 

EM 

ERR11 

#FRMT15 (SP) 

#1 a7 CSP, 


SP, 
CS$PNTB 
#4 ,SP 


CSETST 


FOO OCONOUES WN “OO OONOUSWN = 


— a 
SQN 2m Mm SoS os os 


075740 


075752 


075752 
075760 


075764 
075772 


076066 
076074 






002340 


002246 


000013 


002304 
000050 
002306 





Se Ge Se Ge Se Ge Se Ge Ge Se Se Ge Ge Se Ge & 
ae eee eee een ean enna 


= 
Ww 
pay 
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TEST 31 PORT ‘A® TIMEQUT/RELEASE 


-SBTTL TEST 31 PORT ‘A’ TIMEOQUT/RELEASE 
Sey THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 


SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
SEIZE THE DRIVE THROUGH PORT °B* BY WRITING 0°S INTO RPDS. 

SET PORT REQUEST BY WRITING 0°S INTO RPDS FROM PORT ‘A’. 

ISSUE A_RELEASE COMMAND FROM PORT "B*. VERIFY THAT THE DRIVE 

HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 

SET FOR PORT °B*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


RELEASE THE DRIVE THROUGH PORT ‘A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST DRVBAD SYSTEM OK? 
BEQ 64$ :TAKE BRANCH IF SO 
TRAP CSEXIT 


- WORD {10075. “ 


sCLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA, @RPCS2 SELECT PORT #A 


CLR @aRPDS 7SEIZE THE DRIVE 

MOV #11,aRPCS1 TISSUE DRIVE CLEAR 

MOV #13, aRPCS1 RELEASE THE DRIVE 

START THE TIMER 

CLR TIME sCLEAR THE yt ae Ne COUNTER 
MOV #40. WATCH 3SET WATCH TO 40. M 

TST WATCH 

BNE 65$ 

MOVB PORTB,@RPCS2 sSELECT PORT #6 

CLR aRPDS 3SEIZE THE ue pee PORT ‘B’ 
MOV #11,aRPCS1 ISSUE DRIVE CLEAR 

MOV #13,aRPCS1 RELEASE THE DRIVE 

START THE TIMER 

CLR TIME CLEAR THE ELAPSED TIME COUNTER 
MOV #40. ,WATCH 3SET WATCH TO 40. MS 

ao WATCH 


J FERRARA ERA EEE REET EEE EEE EEE EEAEAEREEAEAEEEEEAEEEEEEREREEEEEEEEEEEEE 


sSEIZE THE DRIVE THROUGH PORT 8B 


- MOVB PORTB,aRPCS2 SELECT PORT 


B 
MOV PORTB,SEIZPT ;STORE SEIZING PORT*S ADDRESS 











K 
NAO RPO? DUAL PORT TEST MACRO V04.00 1-JAN-83 15:44:57 PAGE 57-1 


16 


SEQ 0205 — 


+ "OPPOSITE? PORT ADDRESS 
;SELECT PORT A 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


peeeeeeeeeeeeeeeeeeeeeeeeereeeedeeaaededeeeeeateeeeeeeeeeeeeeeneedeeeneeeeees 


sSET vert ie FOR PORT A 
;SELECT PORT B 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


eRReReeeeeeeeeeeeeeeeeeeeeeNeAeeAeedeeKeekeneeeeneeeeeeeeeeeeeeeeeeeeees 


RELEASE DRIVE THROUGH PORT B 


CLEAR THE ELAPSED — COUNTER 
7SET WATCH TO 40. M 


FERRARA EEEREE EE EEE EEEEEEEEEEEREREEEREREEEEEEEEEEEREREREEEREREEEREEEEEEE 


3SET WATCH TO MEASURED TIMEOUT VALUE + 25% 


SERA EEEEEREEREEEEEEEREEEEREEEEEEEEREEEEREREREEREEEEREREREEREEEEEEEEEEEEEE 


CLEAR _THE ee ERROR® INDICATOR 


3 FORM AT adele ADDRESS OF ERROR MESSAGE 
WHAT REGISTER SHOUL LD BE 

31S THE REGISTER Ok ? 

BR IF OK 


3SET THE REGISTER COMPARE ERROR INDICATOR 


: K 
sBYPASS REST OF TEST IF NOT 


31 PORT 'A’ TIMEQUT/RELEASE 
076102 005077 104276 CLR @RPDS ZWRITE RPDS 
076106 013737 00224 2272 MOV PORTA, OPPRT 
076114 113777 002246 104260 MOVB = PORTA. aRP 
076122 013737 002246 002266 MOV RTA.PTNBR 
SET REQUEST THROUGH PORT A 
076130 005077 104250 CLR @RPDS 
076134 113777 002250 104240 MOVB = PORTB, aRPCS2 
076142 013737 002250 002266 MOV PORTB, PTNBR 
“RELEASE THE DRIVE THROUGH PORT 8 
076150 012777 000013 104214 MOV #13,aRPCS1 
:START THE TIMER 
076156 005037 002304 CLR TIME 
076162 012737 000050 002306 MOV #40. ,WATCH 
076170 005737 00230 69$: ‘TST WATCH 
076174 001375 BNE 
SUAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
076176 013737 002312 002306 MOV TIMEAP ,WATCH 
{VERIFY THAT THE DRIVE IS SEIZED BY PORT A 
76204 005037 002276 CLR CKERR 
076210 017737 104170 002332 MOV @RPDS,BADDAT ;GET CONTENTS OF 
076216 013737 002404 002334 MOV RPDS ,BADADR 
076224 005037 002336 CLR EXPTED 
076230 023737 002336 002332 CMP EXPTED ,BADDAT 
76236 001416 BEQ 70$ ; 
076240 104456 TRAP  C$ERHRD 
076242 000003 .WORD 3 
076244 007553 -WORD M31 
076246 013362 .WORD ERR12 
076250 012746 003716 MOV #FRMT17,-(SP) 
076254 012746 000001 MOV #1,-(SP) 
076260 010600 MOV 
076262 104414 TRAP  C$PNTB 
76264 062706 000004 ADD #4,SP 
076270 005137 002276 COM CKERR 
076274 70$: 
076274 005737 002276 TST CKERR ZREGISTER OK ? 
076300 001402 BEQ +6 
076302 000137 077010 JMP is 
:WAIT FOR THE TIMER TO RELEASE THE DRIVE 
076306 005737 002306 TST ATCH 
076312 001375 BNE — ; 


ATCH EQUAL ZERO ? 
‘BR IF NOT 
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SRA AAAEERAEEE ARES EE EE EEE RARER AAAEAEEEAEAEEEAEEEEAEAAEAEREREAAEEEHEEHEEEEE 


‘CONFIRM THAT THE DRIVE HAS TIMED OUT 


sVERIFY THAT THE DRIVE IS IN NEUTRAL 


076314 005037 002302 CLR RELERR a EAR THE "RELEASE ERROR ° INDICATOR 
076320 013737 002404 002334 MOV RPDS ,BADADR FORM THE ADDRESS OF RPDS FOR TYPEOUT 
076326 012737 011700 002336 MOV #MOL {PGM'DPR!DRYIW, EXPTED ;COMPARISON CONSTANT 
76334 113777 002246 104040 MOVB PORTA.@RPCS2 :SELECT PORT A. 
076342 017737 104036 002346 MOV RPDS, TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
076350 042737 024005 002346 BIC SrIPIORL ‘OM!ILV, TMP2 CLEA ONT CARES 
076356 013737 002346 002342 MOV TMP2, TMPO :COPY IT INTO ‘TMP 
076364 042737 100100 002342 BIC WATA'VV,TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
076372 113777 002250 104002 MOVB = PORTB, aRPCS2 SELECT P 
076400 017737 104000 002350 MOV PDS, TMP THE OR IVE “STATUS REGISTER FROM PORT B. 
076406 042737 024005 002350 BIC #PIP!URL!OM!ILV, imps :CLEAR DONT CARES 
076414 013737 002350 002344 MOV TMP3, TMP sCOPY IT INTO ° ' 
076422 042737 100100 002344 BIC MATA! VV, TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
076430 023737 002342 002344 CMP TMPO, TMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
076436 001021 BNE 72$ F NO 
076440 005737 002342 TST TMPO tREGISTERS ARE THE SAME: ARE THEY ZERO ? 
076444 001077 BNE 74$ :BR IF NOT 
076446 104456 TRAP CSERHRD 
076450 000006 «WORD 6 
076452 010751 -WORD  EM46 
076454 013534 -WORD €RR15 
076456 012746 003716 MOV #FRMT17,-(SP) 
076462 012746 000001 MOV #1,-(SP5 
076466 010600 MOV SP. 
076470 104414 TRAP  C$PNTB 
076472 062706 000004 ADD #4,SP 
076476 000137 077010 JMP 76$ :BYPASS THE REST OF THE CHECKS 
076502 013737 002346 002332 /72$: MOV TMP2 ,BADDAT sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
076510 013737 002250 002266 MOV PORTB, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
076516 113777 002250 103656 MOVB  PORTB.a@RPCS2 ;:SELECT PORT 8. 
076524 005737 002342 TST TMPO SEE IF STATUS EQ 0 FROM PORT A. 
076530 001414 BEQ 73$ ‘BR IF ZERO 
076532 013737 002246 002266 MOV PORTA, PTNBR 3 $E1ZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
076540 013737 002350 002332 MOV TMP3, BADDAT : "BAD rin. ‘< ERROR TYPE OUT 
076546 113777 002246 103626 MOVB PORTA,@RPCS2 SELECT 
076554 005737 002344 TST TMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
076560 001031 BNE 74$ ‘BR IF NO 
076562 012737 177777 002302 73$:  ## MOV #-1,RELERR ‘SET "RELEASE ERROR’ INDICATOR 
076570 012777 000011 103574 MOV #11,aRPCS1 *CLEAR THE DRIV 
076576 012777 000013 103566 MOV #13, aRPCcsi SRELEASE THE DRIVE 
076604 104456 TRAP  CSERHRD 
076606 000007 .WORD 7 
076610 010106 ~WORD £M35 
076612 013152 “WORD ERR8 
076614 104456 TRAP CSERHRD 
076616 000010 .WORD 8 
076620 010106 “WORD  £M35 
076622 00000 WORD 
076624 012746 003716 MOV #FRMT17,=(SP) 
076630 012746 000001 MOV #1,-(SP5 
076634 010600 MOV SP,RO 





077010 
118 077010 
077010 


104414 


000004 
002346 


- 002246 


100000 
002336 


003522 
000001 


000004 


sur 
8 
002332 


002332 
002266 
002332 
002332 





74$: 


75$: 


76$: 


1$: 
L10075: . 
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EXPTED,BADDAT 
CSERHRD 

11 

EM7 


ERRS 
#FRMT14,-(SP) 
#1,-(SP) 


SP’RO 

CSPNTB 

#4,SP 

TMP3, BADDAT 
PORTB,PTNBR 
MATA, BADDAT 
EXPTED ,BADDAT 
CSERHRD 

12 

EM7 


ERRS 
#ERMT15,=(SP) 
#1,-(SP) 


SP-RO 
CS$PNTB 
#4,SP 


CSETST 










3 LOOK ay a WHEN RPDS READ 


3 CHANGE 
:DON' v Oite se + THE ATTN BIT 
eR IF OK FROM PORT A. 


SEQ 0207 


sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
CHANGE PORT NUMBER 


3 CHANGE 
sDON'T CHECK THE ATTN BIT 
SEE _IF READ OK FROM PORT B. 
BR IF OK 


; 
= OS | 





WP 
No 


c 1 | 
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PORT 'B* TIMEQUT/RELEASE | 


J .SBTTL TEST 32 PORT 'B* TIMEOUT/RELEASE 

x :*VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE | 

4 tt SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. | 
;* 

g tt A, SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RPDS. 
3% 

g '* B. SET PORT REQUEST BY WRITING 0°S INTO RPDS FROM PORT 'B’. | 
°* 

10 t* (C. ISSUE A RELEASE COMMAND FROM PORT 'A’. VERIFY THAT THE DRIVE 

11 3* HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 

12 3* SET FOR PORT °A'. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B'. | 

7* | 

14 s* D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 

15 j* BEEN RELEASED. 

16 i* 

17 | 

18 077Ci2 T32:: 

22 077012 005737 002340 TST DRVBAD zSYSTEM OK? 
077016 001402 BEQ 64$ ‘TAKE BRANCH IF SO 
077020 104432 TRAP = C$EXIT 
077022 001040 .WORD L10076-. 
077024 64$: 

:CLEAR ATTENTION BITS FOR BOTH PORTS 
077024 113777 002246 103350 MOVB PORTA,@RPCS2 ;SELECT PORT #A 
077032 005077 103346 CLR @RPDS 3SEIZE THE DRIVE 
77036 012777 000011 103326 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
077044 012777 000013 103320 MOV #13,aRPCS1 SRELEASE THE DRIVE 
zSTART THE TIMER 
077052 005037 002304 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
077056 012737 000050 002306 MOV #40. ,WATCH *SET WATCH TO 40. MS 
77064 005737 002306 65$: TST WATCH 
077070 001375 BNE 65$ 
077072 113777 002250 103302 MOVB PORTB,aRPCS2 ;SELECT PORT #8 
77100 005077 103300 CLR @RPDS “SEIZE THE DRIVE THROUGH PORT 'B’ | 
077104 012777 000011 103260 MOV #11,aRPCS1 TISSUE DRIVE CLEAR 
077112 012777 000013 103252 MOV #13.aRPCS1 sRELEASE THE DRIVE 
:START THE TIMER | 
077120 005037 002304 CLR TIME :CLEAR THE ELAPSED, TIME COUNTER 
077124 012737 000050 002306 MOV #40. ,WATCH [SET WATCH TO 40. M 
077132 005737 002306 66$: TST WATCH 
| 


077136 001375 


N 
J FERRARA ARERR EAAEEEAAEEAREREEAAERAERERAARAEEAEREAAAAREEEEEEREREEREREEEREEEEE 


SEIZE THE DRIVE THROUGH PORT A | 


077140 113777 002246 103234 MOVB PORTA, @RPCS2 ;SELECT POR 
077146 013737 002246 002270 MOV PORTA, SEIZPT ; STORE SEIZING PORT? S ADDRESS 
077154 005077 103224 CLR @RPDS sWRITE R 


077160 013737 002250 002272 MOV PORTB,OPPRT ;OPPOSITE* PORT ADDRESS 





Dd 
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SEQ 0209 
TEST 32 PORT "B' TIMEQUT/RELEASE 
077166 113777 002250 103206 MOVB _— PORTB, arPCS2 :SELECT PORT B 
077174 013737 002250 002266 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sRRReeReeeeeeReeEeeLeeeeeeeeeedenee eeeeeeeeeeeneneeedeetereeteneneteeeerers 
Set REQUEST THROUGH PORT B 
077202 005077 103176 CLR @RPDS 3SET REQUEST FOR PORT 8 
077206 113777 002246 103166 MOVB = PORTA, aRPCS2 LECT PORT A 
077214 013737 002246 002266 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RERREEREREREREEREEESEREEEEEEEEERREREREREEREEREEREERERERREREHEREEEREEREEEEEEE 
RELEASE THE DRIVE THROUGH PORT A 
077222 012777 000013 103142 MOV #13,aRPCS1 :RELEASE DRIVE THROUGH PORT A 
sSTART THE TIMER 
077230 005037 002304 CLR TIME ZCLEAR THE ELAPSED TIME COUNTER 
077234 012737 000050 002306 MOV #40. ,WATCH :SET WATCH TO 40. MS 
077242 005737 002306 69$: TST WATCH 
077246 001375 BNE 
FRR EEEEEEREEE EERE REEEEEEEEERERREEEREE EAEEEEEEEEREREREEEEEEEEEAEREEEEE 
“WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
077250 013737 002320 002306 MOV TIMEBP,WATCH § ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 
FRRARARERAEREEEEREEEE AEE EE EEAEEEAAEAEREEEEREEEAREREAAEEEEEEERERERAEREREEEEEEEERE 
VERIFY THAT THE DRIVE IS SEIZED BY PORT B 
077256 005037 002276 CLR CKERR LEAR THE * CHECK pERROR INDICATOR 
077262 017737 103116 002332 MOV @RPDS ,BADDAT Gis CONTENTS OF 
077270 013737 002404 002334 MOV RPDS ,BADADR 3 FORM REGISTER SODRESS OF ERROR MESSAGE 
077276 005037 002336 CLR EXPTED T REGISTER SHOULD BE 
077302 023737 002336 002332 CMP EXPTED ,BADDAT Te THE REGISTER Oke? 
077310 001416 BEQ 70$ :BR IF OK 
077312 104456 TRAP  CSERHROD 
077314 000003 WORD 
077316 007553 WORD 
077320 013362 WORD 2 
077322 012746 003716 MOV #FRMT17,=(SP) 
077326 012746 000001 MOV #1,-(SP) 
077332 010600 MOV SP,RO 
077334 104414 TRAP  C$PNTB 
077336 062706 000004 ADD #4,SP 
077342 005137 002276 ‘as COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
077346 005737 002276 teat oe CKERR ;REGISTER OK ? 
077352 001402 BEQ +6 R 
077354 000137 100062 JMP i$ BYPASS REST OF TEST IF NOT mn 
WAIT FOR THE TIMER TO RELEASE THE DRIVE > 
077360 005737 002306 TST ATCH WATCH EQUAL ZERO ?. .- : 
077364 001375 BNE a ‘BR IF NOT 


FARA EEE AAA EEEEAA TERA AEE AAA AAA AA AAEAERAAEAAEAAAAEAEAEAEEEAEEEAEREERE EERE 


CONFIRM THAT THE DRIVE HAS TIMED OUT 





— —— 





1 
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TEST 32 PORT °B* TIMEOUT/RELEASE 


VERIFY THAT THE DRIVE IS °“N NEUTRAL 


77366 005037 002302 CLR RELERR cL EAR THE "RELEASE ERROR ' INDICATOR 
077372 013737 002404 002334 MOV RPDS BADADR :FORM THE ADDRESS OF RPDS FOR TYPEOUT 
077400 012737 011700 002336 MOV #MOL (PGM'DPR!DRY!VV,EXPTED + COMPARISON CONSTANT 
077406 113777 002246 102766 MOVB = PORTA, aRPCS2 SELECT POR 
077414 017737 102764 002346 MOV @RPDS, TMP? T THE ORIVE “STATUS REGISTER FROM PORT A. 
077422 042737 024005 002346 BIC #PIP!URLIOM!ILV, {MP2 :CLEAR DONT CARES 

77430 013737 002346 002342 MOV TMP2, TMPO sCOPY IT INTO 'TMPO 

77436 042737 100100 002342 BIC WATA'VV,TMPG | :CLEAR PORT DEPENDENT BITS FROM THE COPY 
077444 113777 002250 102730 MOVB PORTB,aRPCS2 SELECT PORT 
077452 017737 102726 002350 MOV @RPDS. TMP3 *GET THE DRIVE STATUS REGISTER FROM PORT B. 
077460 042737 024005 002350 BIC #PIP!URL'OM!ILV, THB | sCLEAR DON NT CARES 
077466 013737 002350 002344 MOV TMP3, TMP 1 :COPY IT’ INTO ° 
077474. 042737 100100 002344 BIC #ATAIVV, TMP1 : CLEAR PORT DEPENDENT BITS FROM THE COPY 
077502 023737 002342 002344 CMP TMPO, TMP1 31S T HE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
077510 001021 BNE 72$ NO 
077512 005737 002342 TST TMPO tREGISTERS ARE THE SAME: ARE THEY ZERO ? 
077516 001077 BNE 74$ [BR IF NOT 
077520 104456 TRAP  C$ERHRD 
077522 000006 . WORD 
077524 010751 “WORD OE 
077526 013534 “W ERR15 
077530 012746 003716 MOV #FRMT17,=(SP) 
077534 012746 000001 MOV #1,-(SP) 
077549 010600 MOV P-RO 
077542 104414 TRAP  C$PNTB 
077544 062706 000004 ADD 
077550 000137 100062 JMP 76$ :BYPASS THE REST OF THE CHECKS 

077554 013737 002346 002332 72$: MOV TMP2 ,BADDAT [SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
077562 013737 002250 002266 MOV PORTB,PTNBR SEIZING, PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
077570 113777 002250 102604 MOVB = PORTB. aRPCS2 3SELECT T B. 
077576 005737 002342 TST TMPO SEE IF STATUS EQ 0 FROM PORT A. 

077602 001414 BEQ 73$ F ZERO 

7604 013737 002246 002266 MOV PORTA, PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

077612 013737 002350 002332 MOV TMP3, BADDAT :"BAD DATA’ FOR ERROR TYPE OUT 
077620 113777 002246 102554 MOVB  PORTA,aRPCS2 SELECT PORT A. 
077626 005737 002344 TST TMP1 3 SEE IF ygiatus EQ ZERO FROM PORT B. 

077632 001031 BNE ras 

77634 012737 177777 002302 73$: MOV #~1,RELERR :SET "RELEASE ERROR’ INDICATOR 

077642 012777 000011 102522 MOV #11. aRPCS1 [CLEAR THE DRIVE 

077650 012777 000013 102514 MOV #13, aRPCS1 SRELEASE THE RORIVE 
077656 104456 TRAP  CSERHRD 
077660 000007 .WORD 7 
077662 010106 “WORD EM35 

77664 013152 “WORD ERRB 
077666 104456 TRAP C$ERHRD 
077670 000010 WORD 
077672 010106 “WORD M35 
077674 000000 “WORD 
077676 012746 003716 MOV #FRMT17,=(SP) 
077702 012746 000001 MOV #1,-(SP) 

77706 010600 MOV SP, 
077710 104414 TRAP  C$PNTB 
077712 062706 000004 ADD 44,SP 
077716 013737 002346 002332 74$: MOV TMP2 ,BADDAT :LOOK FOR BIT FAILURES WHEN RPDS READ 
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TEST 32 PORT °B* TIMEOUT/RELEASE 


077724 013737 002246 002266 MOV PORTA, PTNBR ; CHANGE PORT NUMBER 
077732 042737 100000 (02332 BIC #ATA,BADDAT [DON'T CHECK THE ATTN BIT 
077740 023737 002336 002332 CMP EXPTED,BADDAT ALL BITS 
077746 001414 BEQ 75$ sBR IF OK ohon PORT A. 
077750 104456 TRAP  CSERHRD 
077752 000013 .WORD 11. = 
077754 006072 “WORD EM? 
077756 013000 “WORD ERRS . 
077760 012746 003471 MOV #FRMT14,-(SP) 
077764 012746 000001 MOV #1,-(SP) 
077770 010600 MOV SP,RO 
077772 104414 TRAP CSPNTB 
077774 062706 000004 ADD #4,SP 
100000 013737 002350 002332 75$: MOV TMP3,BADDAT sCHECK RPDS FOR BIT FAILURES = FROM PORT B. 
100006 013737 002250 002266 MOV PORTB,PTNBR : CHANGE PORT NUMBER 
100014 042737 100000 002332 BIC #ATA,BADDAT ;DON'T CHECK THE ATTN BIT 
100022 023737 002336 002332 CMP EXPTED,BADDAT SEE IF READ OK FROM PORT B. 
100030 001414 BEQ 76$ ‘BR IF OK 
100032 104456 TRAP  CSERHRD 
100034 000014 .WORD 12 
00036 006072 “WORD EM? 
100040 013000 “WORD ERRS 
100042 012746 003522 MOV #FRMT15,=(SP) 
100046 012746 000001 MOV #1,-(SP) 
100052 010600 MOV SP.RO 
100054 104414 TRAP CSPNTB 
100056 062706 000004 ADD #4,SP 
100062 76$: 
100062 1$: 
26 EVEN 
28 100062 L10076: 
100062 104401 TRAP  C$ETST 
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TEST 32 PORT ‘B* TIMEOUT/RELEASE 
18 » TITLE PARAMETER CODING 
3 -SBTTL HARDWARE PARAMETER CODING SECTION 
44 z++ 
45 3; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
46 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
47 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
48 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. HE 
49 ; MACROS ALLOW 3 M nsdn TO ESTABLISH COMMUNICATIONS 
ri ; WITH THE OPERATO 
52 ° 
53 100064 000032 «WORD L10077=LSHARD/2 
100066 LSHARD:: 
54 sPRINT ‘RPCS1 ADRS?" 
55 000031 -WORD TS$CODE 
100070 100152 -WORD MESG1 
100072 160000 eWORD TS$LOLIM 
100074 177777 eWORD TSHILIM 
56 ;PRINT ‘VECTOR ADRS?' 
57 100076 001031 eWORD TSCODE 
100100 100165 eWORD MESG4 
1001 000000 «WORD TS$LOLIM 
100104 000377 -WORD TS$HILIM 
58 sPRINT ‘BR LEVEL?‘ 
59 100106 002032 -WORD TS$CODE 
100110 Heya eWORD MESGS 
100112 000340 eWORD 340 
100114 000000 WORD TSLOLIM 
100116 000007 «WORD TSHILIM 
60 sPRINT ‘PORT A DRIVE #?° 
61 100120 003032 -WORD TSCODE 
100122 100212 eWORD MESG6 
100124 000007 eWORD 7 
100126 000000 » .WORD TS$LOLIM 
100130 000007 eWORD TSHILIM 
62 sPRINT ‘PORT B DRIVE #?° 
63 100132 004032 eWORD TS$CODE 
1001 100231 eWORD MESG7 
100136 000007 eWORD 7 
100140 000000 ~ WORD TSLOLIM 
100142 000007 ~WORD TSHILIM 
64 sPRINT MESSAGE #10 
65 100144 005130 -WORD fS$CODE 
100146 100250 -WORD MESG10 
100150 000001 eWORD 1 
66 EVEN 
- 100152 L10077: 
71 100152 122 120 103 MESG1: .ASCIZ /RPCS1 ADRS/ 
72 100165 126 . 105 103 S$G4: .ASCIZ /VECTOR ADRS/ 
73 100201 102 122 040 MESGS: .ASCIZ /BR LEVEL/ 
74 100212 120 117 122 MESG6: .ASCIZ /PORT A DRIVE y 
75 100231 120 117 122 MESG7: .ASCIZ /PORT B DRIVE # 
76 100250 015 012 120 MESG10: .ASCII <CR><LF>/PORT A out’ MUST BE CONNECTED TO PORT B ‘‘IN®’ AND/ 
77 100335 015 012 120 ASCII <CR><LF>/PORT B ‘‘OUT’’ MUST BE CONNECTED TO A TERMINATCR./ 
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HARDWARE PARAMETER CODING SECTION 
78 100416 015 O1S 124 ASCII <CR><LF>/THE DRIVE MUST BE ONL INE WRITE ENABLED. prt AND/ | 
79 100503 oi? 01 120 ASCII <CR><LF>@PORT SELECT SWITCH MUST BE IN THE A/B POSITION.@ | 
80 100564 01 012 101 eASCII <CR><LF>/ALSO, EACH PORT MUST HAVE A UNIQUE DRIVE NUMBER./ 
4! 100651 015 012 012 "ASCIZ <CR><LF><LF>/CONTINUE/ 


| I 1 
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SOFTWARE PARAMETER CODING SECTION 


j .SBTTL SOFTWARE PARAMETER CODING SECTION 
3 p++ 
4 + THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
5 + THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. T 
& : MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
7 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
a + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
m : WITH THE OPERATOR. 
11 : 
12 100666 000000 .WORD L10100-L$SOF 1/2 
100670 LS$SOFT:: 
13 
22 
23 .EVEN 
24 
100670 1.10100: 
: 
34 100670 SPATCH::.BLKW 50. 
42 
43 EVEN 
101034 101060 “WORD TSFREE 
101036 000010 “WORD T$SIZE 
101040 LSLAST:: 





13 
15 


Mronrnnw—— = 
FM O0D NO 
ee td od ed 
r=l~l-l~1-1-1-1-\-1—) 
ed od od od wd 
oO 
> 
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000000 
000006 


176700 
000254 
000240 
000000 
000001 
000001 


000001 


L10101: 


L10103: 
END 
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0 
L10103-./2=1 
176700 

54 
240 
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seen. TABLE 
‘ABC 002330 G CNFBAD 002326 G Dcu = 000040 EM34 010003 EWN = 000002 bigacy 
‘ADR = 000020 G CR = 000015 G DEPTBL 002226 G EM35 «010106 EXPTED 002336 G 
IAIR = 000004 CRLF _ 002564 G DGE = 00000 EM36 «010177 ESEND = 002100 
OF = 001 052 DIAGNC= 900000 EM3? «010251 ESLOAD= 000035 
ASRA 002262 G CSA To= op0e% DLT. = 10000 EM 005705 = 00002 
ASRB 002264 G $BRK = 000022 DMD = 100000 EM4O «010317 FMT16 = 010000 
ASR1 002260 G C$BSEG= 000004 DMPREG 016350 EM41 010374 FR 002 
ASSEMB= 000010 SUB= 000002 DPE = 000010 EM42 010436 FRMTO3 002701 
ATA = 10000 CSCEFG= 000045 DPR = 000400 EM4$ 010524 FRMTO4 002751 
ATABIT 002446 G CSCLCK= 000062 DRO = - 004000 EMG4 010601 FRMTOS 003 
ATO. = = 000012 DRVBAD 002340 G EM4S 010672 FRMTO? 003155 
AT! = 0000 = 000035 DRVINI 01471 EM46 010751 FRMT11 003 
AT2 = 000004 CSCLP1= 000006 DRVSN 002370 G EMG? 011020 FRMT13 003355 
ATS = C$CVEC= 000036 RY. = 0002 MS. «005736 FRMT14 003471 
AT4 = 000020 CSDCLN= 000044 DSNMSG 002567 G EMSO «011106 FRMT15 003522 
ATS = 000040 C$DODU= 000051 DTE = 010000 EMS1 «011170 FRMT16 003553 
Ale = CSDRPT= 000024 DTO0 = 000001 EMS2 011257 ERMT17 003716 
AT? = 000200 C$DU = 000053 DTO1 = 000002 EMSS 011352 FRMT22 003754 
alg = 000 CSEDIT= 000003 DTO2 = 000004 EMS4 011424 FRMT23 004026 
Al? = 001000 CSERDF= 000055 DTO$. = 000010 EMSS «011517 FRMT26 004107 
BADADR 002334 G CSERHR= 000056 DT04 = 000020 EMS6 (011564 FRMT$1 004135 
BADDAT 002332 G CSERRO= 000060 DTOS = 000040 EM6. 006004 FRMT36 004212 
BAI = 000010 CSERSF= 000054 DT06 = 000100 EM60 011670 FRMT44 004226 
ELL = 000007 G CSERSO= 000057 DTO? = 000200 EM61 «011734 FRMT46 004304 
BITO = 000001 G CSESCA= 00001 DTO8 = 000400 EM62 «011766 FRMTSS 004 
IT00 = 000001 & CSESEG= 000005 DVA = 004000 EM6S 012034 FRMT56 004426 
BITO1 = 000002 G CSESUB= 00000 DvC = 000200 EM64 «019106 FRMTS? 004464 
BITO2 = 000004 G CSETST= 000001 ECH = 000100 EMSS 012136 FRMT64 004603 
BITO$ = 000010 G CSEXIT= 000032 = 004000 EM66 «019174 FRMT65 004713 
BIT04 = 000020 G C$GETB= 000026 EF.CON= 000036 G EMG? 01923 FRMT66 005023 
IT0S = 000040 G CSGETW= 000027 EF -NEW= 000035 G EM? 006072 FRMT67 005114 
BIT06 = 0001 = 000043 EF PUR= 000034 G EM70 (01231 FRMT70 005174 
BITO7 = 000200 G C$GPHR= 000042 EF -RES= 000037 G EM71 013400 FRMT71 005265 
BIT08 = 000 CSGPLO= 000030 EFSTA= 000040 G ERR = 040000 FRMT72 00534 
BIT09 = 001000 G CSGPRI= 000040 EMi 0055 ERRVEC= 000004 FRMT73 005437 
BIT! = 000 CSINIT= 000011 EM10 006146 0 012462 G FRMT74 0055 
BIT10 = 002000 G P= 000020 EM11. 006171 ERR1 019530 G FRMT75 0055 
BIT11 = 004 ESHANI= 900050 EM12 006255 ERR10 013262 G FSAU = 0000 
BIT12 = 010000 G C$MEM = 000031 EMIS 006342 ERR11 013320 G FSAUTO= 000020 
BIT1$ = 020000 G CSMSG = 000023 EM14 006427 ERRI2 013362 G FSBGN = 000 
BIT14 = 040000 G CSOPEN= 000034 EMIS 006472 ERRI$ 013430 G FSCLEA= 000007 
BIT15 = 100000 G CSPNTB= 000014 EM16 006551 ERRIG 013472 G FSDU. = 000016 
BIT2 = 000004 TF= 000017 EMI? 006624 ERRIS 013534 G FSEND = 00 
BITS = 000010 G CSPNTS= 000016 EM2 005601 ERR16 013576 G FSHARD= 000004 
BIT4 = 000020 G CSPNTX= 000015 EM20 006703 ERRI7 013640 G Hw = 00 
BITS = 000040 G €$010 = 000377 EMD1 006763 ERRIB 013676 G FSINIT= 000006 
BIT6 = 000100 G CSRDBU= 0000 EM22 6070386 ERRI9 013750 G $JMP = 000050 
BIT? = 000200 G $REFG= 000047 EM2$ 007123 R2. 012576 G F$MOD = 000000 
BIT8 = 000400 G CSRESE= 000033 EM94 007171 ERR20 014016 G = 0000 
BIT9 = 001000 G C$REVI= 000003 EM25 007250 RS 012654 G FSPROT= 000021 
BOE = 000400 G CSRFLA= 000021 EM96 «007313 ERRG 012726 G = 0000 
BPE = 000020 $RPT = 000025 EM2? «007400 ERRS 013000 G FSRPT = 000012 
BSE = 100000 CSSEFG= 000046 EMS. 005623 ERR6 013046 G FSSEG = 000003 
CKERR 902276 G C$SPRI= 000041 EM30 007456 ERR? 013114 G FSSOFT= 000005 
CKEeTA 000260 & C$SVEC= 000037 EM31 007553. ERR8 (013152 G FSSRV = 000010 
CLR = 000040 C$TPRI= 000013 EM32 007630 ERR9 «013214 G F$SUB = 000002 
(MoD = 100000 bck = 100000 EM3$ 007701 EVL. = 000004 G F$sw = 000014 
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SYMBOL TABLE 
FSTEST= 000001 ISSETU= 000041 L$REV 002010 G L10057 052342 PIP = 020000 
FO = 000002 ISSFT = 000041 L$RPT 016714 G L10U60 054242 PKB 014434 
F = 000 I$SRV = 000041 L$SOFT 100670 G L10061 056142 PKC 014436 
F2 = 000010 I$SUB = 000041 L$SPC_ 002056 G L10062 060032 PKCS 014432 
F3 = 000020 ISTST = 000041 L$SPCF 002020 G L10063 061722 PKV 014440 
F4 = 000040 JSJMP = 000167 L$SPTP 002024 G L10064 063346 PNT = 001000 
= 000001 KWSRV 014610 L$STA 002030 G L10065 064564 PORTA 002246 G 
GSCNTO= 000200 LBT = 002000 SW 002244 G L10066 066002 PORTB 002250 G 
SDELM= 000372 LCE __= 001000 L$STEST 002114 G L10067 067176 PORTC 002252 G 
GS$DISP= 000003 LCLKTB 014444 L$TIML 002014 G L10070 070372 PRI = 002000 
xCP= 0 LF = 000012 G LSUNIT 002012 G L10071 072132 PRIOO = 000000 G 
GS$HILI= 00000 LKS 014446 L10000 002242 L10072 073672 PRIO1 = 000040 G 
G$LOLI= 000001 LKV 014450 L10001 002244 L10073 074714 PRIO2 = 000100 G 
= 0009 LOE = 040000 G L10002 012526 L10074 075736 PRIO3 = 000140 
GSOFFS= 000400 LOT = 000010 G L10003 012574 L10075 077010 PRI04 = 000200 
GSOFSI= 000376 L$ACP) = 002110 G L10004 012652 L10076 100062 PRIOS = 000240 G 
RMA= 000001 LSAPT 002036 G L10005 012724 L10077 100152 PRI06 = 000300 
GSPRMD= 000002 LSAU 017372 G L10006 012776 L10100 100670 PRIO7 = 000340 G 
GS$PRML= 000000 L$AUT_ 002070 G L10007 013044 L10101 101044 PSEL_ = 002000 
G$RADA= 000140 L$AUTO 017300 G L10010 013112 L10103 101060 PTNBR 002266 G 
G$RADB= 000000 $CCP 002106 G L10011 013150 MCPE = 020000 RDY = 000200 
GS$RADD= 000040 L$CLEA 017302 G L10012 013212 MDPE = 000400 EG 002456 
ADL= 000120 L$CO 002032 G L10013 013260 MESG1 100152 RELERR 002302 G 
G$RADO= 000020 L$DEPO 002011 G L10014 013316 MESG10 100250 RELOK = 00000 
GS$XFER= 000004 L$DESC 002540 G L10015 013360 MESG4 100165 RHEXT 002364 G 
G$YES = 010 L$DESP 002076 G L10016 013426 MESGS 100201 RHTYPE 002366 G 
HCE = 000200 L$DEVP 002060 G L10017 013470 MESG6 100212 RMR = 000004 
HCI. = 002000 L$DISP 002124 G L10020 013532 MESG7 100231 PADR 002356 G 
HCRC = 000400 L$DLY 002116 6G L10021 013574 MOH = 020000 PAS 002410 G 
HELP_ = 000000 $DTP_ 002040 G L10022 013636 MOL = 010000 PBA 002376 G 
HERTZ 014454 LS$DTYP 002034 G L10023 013674 MTD = 040000 RPBAE 002442 G 
HOE = 100000 G L$DU 017364 G L10024 013746 MXF = 001000 PCC 002430 G 
IAE = 002000 L$oUT 002072 G L10025 014014 NBA = 100000 RPCS1 002372 G 
IBE = 010000 G L$DVTY 002532 G L10026 014062 NED = 010000 RPCS2 002402 G 
IDU = 000040 G LSEF 002052 G L10027 014652 NEM = 004000 RPCSS 002444 G 
IE = 000100 LSENVI 002044 G L10030 016720 OATA_= 000001 PDA 002400 G 
IER = 020000 G LSETP. 002102 G L10032 017276 NOSEIZ 002300 G RPDB 002414 
ILF = 000001 LSEXP1 002046 G L10033 077300 = 000200 RPDC 002426 G 
ILR = 000002 LSEXP4 002064 G L10034 017362 = 000001 RPDS 002404 
ILV = 000004 LSEXP5 002066 G L10035 017370 ONEFIL= 000001 RPDT 002420 G 
IR = 000100 L$HARD 100066 G L10036 017376 = 020000 RPEC1 436 G 
ISR = 000100 G L$HIME 002120 G L10037 021154 OPPRT 002272 G RPEC2 002440 G 
IXE = 004000 L$HPCP 002016 G L10040 023102 = 000200 RPER1 406 G 
IxXU) = 100 L$HPTP 002022 G L10041 025030 OSAPTS= 000000 RPER2 002432 G 
ISAU_ = 000041 LSHW 002226 G L10042 026356 U = 000000 RPERS 2434 G 
ISAUTO= 000041 L$ICP_ 902104 G L10043 027704 O$BGNR= 000000 RPLA 2412 G 
ISCLN = 000041 L$INIT 016730 G L10044 030730 O$BGNS= 000000 RPMR1 002416 G 
I$DU_ = 000041 LSLADP 002026 G L10045 031754 U_ = 000000 RPOF 002424 G 
ISHRD = 000041 LS$LAST 101040 G L10046 033530 OSERRT= 000000 RPS 002422 G 
ISINIT= 000041 LS$LOAD 002100 G L10047 035304 OS$GNSW= 000000 RPVEC 002360 G 
ISMOD = 000041 L$LUN 002074 G L10050 036754 O$POIN= 000001 RPW 002374 G 
ISMSG = 000041 L$MREV 002050 G L10051 040424 O$SETU= 000001 RQSTA 002254 G 
ISPROT= 000040 L$NAME 002000 G L10052 042230 A = 000010 002256 G 
ISPTAB= 000041 L$PRIO 002042 G L10053 044034 AT = Boones WU1 = 002000 
ISPWR = 000041 LS$PROT 016722 G L10054 046730 PCLKTB 014430 RWU2 = 004000 
ISRPT = 000041 LSPRT 02112 G L10055 047602 PGE = 100000 RWUS = 010000 
ISSEG = 000041 LSREPP 002062 G L10056 051062 PGM = 001000 SAVRPR 016276 
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Sc = 100000 TIMEAM 002314 G TSNS1_= 000005 TS$SRV= 010027 132 077012 G 
scO. = =: 000100 TIMEAP 002312 G TSPCNT= 000000 T$$SW = 010001 4 025032 G 
$Ci = 000200 TIMEB 002316 G TSPTAB= 010102 TS$TES= 010076 15 026560 G 
SC2 = 000400 TIMEBM 002322 G TSPTHV= 000001 T1 017400 G T6 027706 G 
SC3. = 001000 TIMEBP 002320 G TSPTNU= 000001 T10 035306 G 17? 030732 G 
SC4 = 002000 TIMES 002324 G TSSAVL= 177777 T11 036756 G T8 031756 G 
SCS. = = 0004 TMPO 002342 G TSSEGL= 177777 T12 040426 G 9 033532 G 
$c6__ = 001000 TMP1 002344 G T$SIZE= 000010 T13 042232 G UAM 000200 G 
SEIZPT 002270 G TMP2 002346 G TSSUBN= 000000 T14 044036 G UNIT 002354 G 
SFPTBL 002244 G TMPS 002359 G TSTAGL= 177777 T15 046732 G UNS = 040000 
SI 014064 TMP4 002352 G TSTAGN= 010104 T16 047604 G UPE = 020000 
040000 TOLER 014654 TSTEMP= 000000 T17 051064 G uO = 000001 
SNDIGT 002623 G PE = 000002 TSTEST= 000040 718 052344 G U1 = 000002 
STOPCK 014560 TRE = 040000 TSTSTM= 177777 T19 054244 G U2 = 000004 
ST.CLK 014226 TSTNUM 002274 G T$TSTS= 000001 T2 021156 G vv = 000100 
ST. 014522 TSARGC= 000001 T$$AU = 010036 T20 056144 G VVSET = 000001 
ST.PCL 014456 TSCODE= 005130 T$$AUT= 010033 T21 060034 G WATCH 002306 G 
SVCGBL= 000000 ToERRN= 000014 TS$CLE= 010034 T22 061724 G WCE = 040000 
SVCINS= 000000 TSEXCP= 000000 TS$DAT= 010103 T23 063350 G WCF = 000040 
CSUB= 000000 TSFLAG= 00004 T$$DU_= 01003 T24 064566 G WLE = 004000 
SVCTAG= 000000 TSFREE= 101060 TS$HAR= 010077 T25 066004 G WOR = 001000 
SVCTST= 000000 TSGMAN= 000000 TS$HW = 01 T26 067200 G WRL = 004 
S$LSYM= 010000 TSHILI= 000007 T$$INI= 010032 T2? 070374 G WRYUNS= 00040 
TABELD 016122 G T$LAST= 000001 TS$MSG= 010026 T28 072134 G X$ALWA= 000000 
TAP = 040000 T$LOLI= 000000 T$$PC = 000001 T29 073674 G X$FALS= 000040 
= 000400 TSLSYM= 010000 TS$PRO= 010 T 023104 G X$OFFS= 000400 
TICKMS 014426 TSLTNO= 000040 TS$PTA= 010102 T30 074716 G X$FRUE= 000020 
TIME 002304 G TSNEST= 177777 TS$RPT= 010030 T31 075740 G SPATCH 100670 G 
TIMEA 002310 G TSNSO = 000000 TS$SOF= 010100 


- ABS. 101060 000 
0000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY ah ete WORDS ( 1 PAGES) 


DYNAMIC MEMORY AVAILABLE F 70 PAGES 
CZRJNA.BIC, CURINA/CS (20, onsvc3ar. MLB,£20,12JCZRJNA.DOC ,CZRJNA.HIS,CZRJNA 
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MMMMAMMNAAADADADANNANANANAKRR LARA RRL R. OOOO OOWODOO KKK KK KEM TKK 
SO FF FF FF FF FF FF FC COCO OOO OOOO KKK CunCUCUCICUCUCUCUCUCCOUN 
St bes 3 bed 
SO UNININININNNINNIN EMO RE EK KK NNO OOWO DO UMTS OP OUMAAO 
eseeeseeeeeeereeeeseeeee eee eee eee eee seeeereeeseeeeepeeeee ee eka 
MMMNMMAMNNAAMMAIIDA AANA AANA RRR RRL RK. OOOO DOOOODO KK KKK KEM K RK 
SO FF FF FFF FF FF FE CM MK OOM MO MO MK eK FUT CUCUCUCUCUCUCUCUCUCUTY 
ae 2222 . 
=UPMM TN OR. ODO — CUCUM TM OR. DOOR. MMORK DAOOK—KHOSCOUM ST TOMO TR OT MOOMMMoOooO 
NIN NUINININUINUININININ RE MO HK KKK KK CUR. DOWD ODWDO— KUM ST OOK KOO 
seeepeeeeseeeeeseeeeeseeseese eee seseeeseeeeseeeseeeseseseeepeeeeseeeeee ees 
MMM MMMAMADAANAAAN AAA EARL RR. COO OOD OOOO rH KK KKK MT KKKKR 
SO FF FF FFF FF FF FF MMMM OOM OM Mm KK CU CUCUCUCUCUCUCUCUCUCUCUT 
Re te 2222 & 
—VUMMTNOR. OOO — TFWM OR. DAMA K MOK DOOOK— HOOK UNS TOU OT OOOMmMan oo 
NINN QUICKUIRKUIRKUIRNUICUNUIRQUIOUIBR, © KKK KH KH HK CUUR. DODO DWDWOO RK MUM TNO RK KAO — 
seeseeseseeespeeeeeeseeseee eee eee eee 8 8 @#eeeeeseeseepesepeereeeeee ee 8 
MMMM MDAADAAAADAAALA AAA ALAN ERR RRR. COCO COMODO OO KKK KK KEM TKK RK 
FF FFF FF FF FC MM MMO OM MOM mm KK tu CuCUCUCUCUCUCUCUCUCUCUT 
22 & 
ye ke sZ2RZ2222 22 2nrvw-wVNCoo Bos =2= 22 S332 = s-— 
SIU CUINUICKUICUINININUIRKUNIOUIIR, © PEK KK KK CUR. OOOO DOH OUM TNO K KR OCOK — 
eeeeeeeeeseeeseeeeeeaeeeee eee eee eee $eseeeceeceececeee eee eee 6 bt 6 8 
MMMM NAIANAAALAAAAAAAANAR ER RRR. COCO COCO COD OOOO HK KK KK EMT 
St et seer ee ce sl el el ee eee el el el el ee eel el oe el el ee el oe el el el el oe el oe ool el col el ol el oe ee el oe oe oe OS) 
-— 
eeeseeeeeeeseeeeseeeeeeee eee eee ele eeeteteeee ee es 2 @eeeee 6 
MMMMNMNNANNMNANAAANRADAIAAAR LEER. ROOD 000000 CO CDC ae SKK MTL 
rrr 
bd 
FNM TMNOR. DDOO K— CUM TN OR. DODAONOKL MOO DOOOOSO OK wT TROT TOOK. OD-—MMOooO 
FICCI CICK CUCU CUCU CUCU CUR, Do EK CUUR.. DODD DW DWC DW — FUM TNO K TR OOK 
seoeeeeeeeseeeeseseeseseseeese se eee ee ee ee 8 $eeceepeeeceeeeseeeee ee ee ees 
MMMMNMAMMNAAALAAAAAAAALAALANAR RRR RRR RRR. CODCOD OOOO HK EK KK MMELKLAKLK 
FF FF FOO OE MMO OM Rm mK CU CUCUCUCUCUCUCUCUCUCUCUT 
CRC RB bic icici a cw CCCI RCC cco bcc AACR ACCC 
MAMMMMAMNMNMN NAAN AALANANALAIANAR RRR RRR RRR IR. O00 COCO CODD GK KKK KE MMARKLARLR 
SF CUCU CU CUCU CUCUCUCUCUCUuOUT 
NICU CUCU CURIONI CUE, 0  CUCUR.. 20ND — CUM TNOK— MMO — — 
seveveveeeeeospeeeeeeseeeeeeeeseeeeerseeeeespeeeeeeseeegpeseeeseeese bee et 
MMMM NNA NAAN AMAINIANAN ANNA RARER RRR RR. COCO COO OOD ODO GS KKK KK MMNAKAKR 
OF FF RE CUCU CU CUCuCUCUCUEUuCuUCUTY 
a2 = 2eeee Ree RVONNS S 3S zee ae = 
CRC be Bb bcc ew CCRC RCAC coco gcc aber SACI RCChC 
MMAMNANANAMNNANNANNAANANAANALAIANAIAWAR. RAR ARR RRR. COCO COCO DOOD SH KK KE MMNAKLALALR 
FF MME EO MORK Rm K— CU CUCUCUCUCUCUCUCUCUCUCUC 
J RCRCRCRCRCRCRCRCRC RCW Wt a Ww RCC SCC CRT oe aC RR 
MMAMNNANMNANNANNANANIANANIANINAINIANR RRR EAR ARERR. BR 000000 000000 000000 ce fe = UMAR ARR 
SO FF FF FF FF FMC OOO OOK OKOKER KKK CUCUOUCUCUN CuCUCUCUCCUCN 
RCAC ARC RRC Wwe we CRC CC Ca CCR AC 
A rAAAnnnnnnnnnnnnnnanrRARRARRARRR OOODODDDOO— RRR KK MARA 
OO 0 FU UIUC CUCUCUCUCUCUnTY 
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CROSS REFERENCE TABLE (CREF V04.00 ) 








oooSSxhoge 


eee Ktuty mcucucurucucuccy 
KARR R RRR RC RCRCRCRCRCRCRC RCC RRC RCRCRCRCRCRCR DU ppt Ut Wt wt weet UE 
ICAL RAN BN ab gb gb ob a ab ad a0 ad a gd a) 9 gd 6) 6 6.0.6.0 de dad g go POD QO re ne 
PCC Cu gucu cu cucu Cu Cu cu cucu CU CUCU CU CUCU eUCU CU CUCUCUCUCUCUCU CUCU CU CUCUCUCUCUCC N every 
& + 4 22222 
KRHA ROR RRC RCRCRCRCRCRCRCH ppp wt wt wt Wt Wee 
PEC RICCI CUCU CUCU CU CUCU CUCU Cu Cu Cu CUCU CUCU CUCU CUCU CUCU CUCU CUCU CU CUCU CUCUCUCUCuCUTY ZR wm 
Ree FEASASS SSAA 
oooooon ann Bee ae te Oo 
TOUT OT U TT OPT TEU TEU TUTE ETRE UTTER EET eT 
ee aa ata a a aa aaa ata a ava aia ates tia iavia av iaviatiaviaviaviaviav aviatiaviaviaviav atiat va) 
RRE SRSSSIAAAATS 
oooooonm REnRReRR RR RE wo 
SS NIKI RKUIRQUIRKUIRQUIRQUINQUIQUININQINQUININIQUNUIQUINQUNUNUCQUNNES 
| rir Hmmm mODDDDDDHODHOHDHHOHOHHOHOOSCAAAAAESAAECAAECAPEAAEAAGHAS 
RR RPRR. RR. 000000 00 000.00 00 00 00 00 00 00 60 60 00 00 60 00 6000 G00 DAA AAAAAAAA AO o AAAaAS 
RUDI CUCU RU RICCI CU CIC CUI CUI CUI CI CUCU ICI CUI CUI CUI CUI CUI CUI CUR CUCU CUCU CUCU CUCU CUCU CUCU CUCU MNICIOUCUCUCUCUM 
ca 222 ZRZZF F222 2222 
FOOOGONAD AAXRXREXAEAAAAAAAAAEAAA AAA AAO BVRVBVRVeeVVeVVeezo 
SO NINN NI NINN NIN ONIN INNO 
SL OMODDODOHODHDOHHDOHOHDHOHOHOHORSASAHAGCAEHARAAGAgAAG eee 
RARER. RR. 000000000 60 00 00 60 00 00 60.00 00 60 00 60 60 00 60 0060 00 GOD OA AAAAAAAAAAAO ASOAaAaAS 
RDI CUI RDI EIEIO CURIOUS CUCU CI CUI CUCU CUI CUI CUCU CUI EUI CUI CUI CIR CUCU CU FU CUCU CU CUCU CUCU CUCU CUCU CUCU CUCU CUCUCUCUCUCUCUM 
SO FINI CUI CUI CUI CUI CUI CUI RIQKUIRKUIRU ICICI 
Se i OOOO OOOOHOOOOOOOOOHOHHOSSaaaraadcadddddddddddddddd 
RRRRRPR RR. 000000 00 00 00 00 00 00 00 00 6D 00 00 60 60 60 60 00 60 C060 COCO A AAAAAAAAAAAAAAAAAOAOAAOAOAOS 
peat at ati at ati at at at avi av ati at tia at at aa at at av at ati at ati ati at av aviv ati ati aviaviatiaviatiatiaviaviaviav i aviatiatiaviavi avi atiav atiav stint a) 
3 we Be te ZRZRZRFBZ2Z 22222 
De NIAAA AD’ DA ADXAAAXAA AAA AXA AAD AANA ANN NONINNNINNNINNIN 
SE FI CI CUI KI CUI CUR CUCIQCUCUICICUCIONICUCIENICCUONNIONICUNe 
Det del Oooo OOOO DOOOOOOHOOHHOHoS Shad ddaAdAAdAdDADdAAADDAADSA?S 
RRR R. 000000000 60 00 00 00 60 00 60 60 00 60 60 60 60 00 60 G0 60 60 COD OP AA AAA AAAAAAOAann OOara 
ee ee eee ee ae ee ee ee a ae arta ar aa ati at iat iat aviatiatiaviat ists avi avis avi av ati ati at va) 
cans te & ZRBBBV2VeV2zVVeesV 
Be SS SSNS SSSSSSSSSSSSSSSsss SSS SF cueueunueveueucucueueucucncucucueuedcucucueuededee 
LO 0 0 NIKI NU RKUI RU RKURQURNUICUIQURQUICUICINUICUNUICUICUCUICQUEUGICUNIS 
eeeoeepeeseeeoeseeeseeseeepeeeeeseeeeeeeeeeseeseeseeseseseeeeeseseeese se eee et @ 
ERP C00 WH 09 0H WW WD WWD DOWD DODAEAGCAOOOAOOAOOOSOOOOOOOSAOOOOO OS 
REDS OOOO COICO COICO IOI OI III III CII III ICICI CII ONION OI CIEE ICICI OIC 
ty Ree 2222222 RS 
Se DADA DAD HADDAD AAA AA AAA AAD A AMUN NANA NIONIN NN NNINININNONNN 
FUKUI CU CU CUCU CUCU CUCU CU CUCU CU CUCUCUCU CUS 
8 noob bob bess sbddbdddddddddddd ddd d ddd Add AAAS 
wRRR.R.BR_BR.. 00000000 00 00.00 00 00 00 00 60 0D 00 00 60 GD 60 GD 0D 00 60 6D G0 OF OF Os OS OOO A AAAAAAAAAAAAAAAAS 
DIDO OIC CII CCCI CIC CII ICI III II III ICI EIEIO CII ONION 
= RR ZRZA RBZ 2 2VZV2222 
ooocooso ano Onn oa an BR BRVRVVVVVVVVwo 
Ce eek eel el eel eel eel ee el ed el el el oh el el ol oe el od cel oe el el eh oe el ed el eed oe BOO a a a a a aaa aviaviav ial avi avi avi aViavi avi sVi avi og 
seseevurseseeeseeeeseeeeeeeaeeseeepeeseepeseseeseeseseeseeseseseseseeseseseseseseseese ees ss 
RR_R_R_BR.R. 0000000000 00 00 00 00 60 00 00 00 0D 6D 00 60 00 60 6D 60.60 90 CO Os OS ODD AA AAA AAAAAAAAAAOAOAAAS 
fovia ava at iat iat atin Via avi at ati avi avi av avi at viata vi avi at aviat iat at avi avi aviaviat ia iat iatia iat iat ia iat iat iaviavia vat aviaviatiaviatiatiaviavi at) a) 
cad 2222 ZRZRZ BBV 2 2222 
SoQrnrrnr Kut AAOanw QOoOoonn oa KUKI CUCU CU RKU CUCU RKUIRUIQURNUINI NICU RNUINIGUNICUGNNNUNe 
JFCRCRCRCRRCCRC CRC RC RCRCRC CRC RCRCRC RRC RCRCRCRCRCRCRCRCHT Wt gp WRT Wt DUB BBW 
raviaviaviaviatiatiaviav avi avi avi avi av aViav avi avi aViav aviavi avi avi aviaviaviaviav aviaviaviatiatiaviaviatiaviavia ia tia iaviaviaviaviaviaviaviatiaviaviav avi avis a] 
& 222 ZZ2ZFZ 2B 2222222 
ooooo yr. o oa RZRBRRBVHVRBBS2BZVVO 
BSS SINS & SO & OO Or Or rr Ror On RO CUCU CURUCURURUCURUCUR MICU ICU OURO e 
SO 0 NUI FUTUR CUCU CUCU CUCU CU CUCU CUCU CUCU Cu CUCuNCUNUN 
0 oe oe one rip g ggg gob Q ess bdddddddddododoaoone 6686668 8 
~R-R-P_R.BR_B_BR. 00000000 00.00 00 00 00 00 00 00 00 00 00 60 60 CO G0 GOGO GO COD OA OA OO AOanw Aono AOOara 
Pavia lava tratiatiaviav aval avi avi avi aViaviavi avi avi sViav/ aviavi avi aviavi avis avi avi aviaviat ia ia ia ia tia ia ia iaia avis i atiaviaviaviaviay) NUNC 
ooooovwwn RRBVVRVBVBBBBBBVOo 
SLOLSSANSSSSSSSSSSSSF SSS Se eunucueucueueucucucunucucueucucucucueucueucuedene 
TUTTE TUE TET TET TET T ETT ETT TET TTT T TT TTT TTT TTT TTT TTT 
Paver aviatiavraviat ia ser av avi atl avi avi aViaVi avi avi aViavi Vi aVi avi avi aViavi aViav aViavi avi avis tia ia aia iaviaviav avis iaviaviaviaviaviavlaviatiaviaviatiaviat) a) 
5 z SSsoogessa5 
wn oa RZRRRBVBVVVVZAZVO 
BOSOSS AA SESS SSS AAAS ONNININNINNINININININNINNNNNNNNNNR 
NIKI NICU NI CUINUI NU RNUINI NICU NUINI NINN NINN e 
PRR PP 00 00.60 20.00 0 6 00 0 0 G0 G0 6 0 0 GD GDGBD DAA AAAAAAAAAAAAAAAAAAAS 
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| 
| 
| 
| 





229933323, ..00333333ertondiges es s3 3383 eR BASSES 
eRe eee eae ee Re ee TR AORCRCR a Or Oe a a ieee eee ae ee 
MMMMMMMMAMMMMMMMMMMMM MMM MMMMMM MMMM MMMM MM MMMM MMMMMMMMAR MEANS 
222223333,..00mB3BBBInn StanviieoososBIBIIIeormeeIAIAIASSSS 
TUTTE TURD UP UU RUUD UDUTE UTTER EEE EET TUT TTT 
RMMMMRMARMMAMMMMMMMMMMInMMMMMMMMMMMM MMM MMMM MAMMA MIAMIAMIAMIAM RIS 
zee 
2222332 SR po omeeBSSBSnn SS on S SS eee ee33 3333S co AAAAAAASSS 
FUVV PERU PRRERERRRRERD FAP AKR ORC RRR REA T Vid bbb 
mry PAM MM MMM MMM mw Pe FAAP AAA AL ALA AL ALAS 
= 
222233333 romnaB3B Bin Stanttosesos3S3SBSomem AIAN SES 
YERRRERERRRRRER RRR RR ARRAN ee eee eee ee 
RMMAMMMRMMARMMMMMMMMMMMMMM MMM MMMM MMMM MMMM MM MIM MIM IAMIMMIM TRIER 
222233233, monn BBBBInnSiaviiigosose SSIS SSM SSS 
YeRRREEERRRRR REAR SARA ee eee 
QO OO OOOO © OO SF SF SF SS ES SEE TT TNA OOw 
PLVESVES VENEER PSN NEN PSDP N PRPS PN PD ISN PD PNT PD PT PDI PR PDF ED TD PTD PSD DET DPD FD PTD PPT ID PD PDP I PDE DPD DP ID 
RrVee 
222233323 romnaBSBS3nnPonttiogocosS BIBS eee AAIIIASSE 
SS 0 SSS SF DH WD WW WW 0 OO CO UI NUICUENINONINUONNENUNNIN eS ee 
teeeeeveveeveovevovesoetetitvetsoretveereretsteretererrerrettrrrte 
SSO 009000 eo EE KE NINININIMMIMIINS S F SEEEEETTAAAAAAAAAAAA OOO 
COVES VEST VESPER ET PITRE PTD PDP DPE PEI PPV PPVIPL ITIL PLETED 
RRR 

22223322 SR enmenSESSExn Stn iSeeeee 233333 erererenen SAAS AASES 
FT TIN 0 00 00 00 00 00 00 BO COU COI FUN CUIEIEUIOUIEUIEUENIONN = = 
teats PEC PETC OPEC OEE eee test eee peepee reer eee. 
4444444454444 42444 SUNNY 59999 59 PAA AAAI OOO 
PAMMMMMMMMMMMMMMMMMMM MMMM MPM MMMM III PLVETVESUESVES RESUS VETTES TESTES I ITED 


Serr ee eernnttiyy Tooh SS geseee daar ES 


t a eeee#e 
BOSSS5 OOOO oo NNN G $99 -G 9-559 RRR Tatar atat a alata al at an Rf 
PLVESVES VEEL VISITE RETR PSU PSDP PONISI RPP RI PSD PTR PD PID PDP ID 


O000SSSSOS 





SE — — — — WMD WW WWD DO DORK F- FBR CUSUTUCE OO O00 000000 CMMMMMMMMMMMINOOO 
Wek REORROERWEKEDERER ED Rhea hehe eee OD 60 6D 60 GO CUCU CUEING ee = 

eeeevpeeeeeeeeereeeseespeeseeereeseeeseeeeeeeceeeeeeeeeee 
POVEPVESVES NE PSPSPS PPP NUIT DPD ID PD PD PD PPD PP ID PPVETVETIET PPI IEP PEED 

& 

Cah pa pak pad pak pel gel peek pak pel eek el el pel eel el eel ed ed ee i Tt OB 6G 60 00 00 00 00 00 00 80 SOIR 
BESET TESSRRSRERRAREP REESE. $eeeteeeeeee eee ee 8 #ee0eee0ese a a 
MMMMMMMMMMMMM—mM—mmmnny PAPMIMMM IMM) Pree PP VEFV EVISU EVES VEST POV ISV ETD PSD EDIE PPE EID 


0000353335... .roSSSSSIn TTBS 00000033333 SemmmmmARBRARSSS 
TTT TTT TTT UTED DUTT EET TTT 
QOQOQQK QC COCO CE NUICUNICUMMIPIM St TT re MMMMNMNNANANNLNODO 
~ 

09003533535... ooSSSSSun dt Transs ooo oS S333 SmmmmemFRBAAASSS 
TUT TTT UT TTT TTT RTT RUTTEN eT T TT 
ptt ototol total hetetetetetetetetetetet ONIN hAtAlaan fe fe 8 fe fe i fe fe fe Parr Att AAT AT ATA A 

2222233233 non oo333S33~ nS i ww Segegeg 33333 Bom AAA ASSES 
Yeh e eee eo ee ie oe eee eee RRRRRRRRRRR Eee 
TAA t thot hetebetetetet et eteteted MTNA ALAA Abs ff RF FR he fe he oe SRN DOD 
2222233333 eonwe333333~ 0 SS Si gege ee 33333 InnmnnRAAAAASSS 
Cd eel pe pel sek ee el el el el el el el el el el eh ee ee corns NAINNNNNNNNNNE @-&- 
WUVUV EUS UURARRERRERED FOO KORHRAAERERARA ERK RKO 

-4+—-+—+— +4 t— tut + tte Ot ot eT OPPS ELELETS Sete ALATA laty ty ty Sy Sy fy ty ty by Gy fy fe FAPAPALATALALAL AAT AL ALAR HL 





 eneneneeeneeem remem 
| 
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6-104 6-104 6-104 6-104 6-104 6-104 6-104 6-104 6-104 6-104 6-104 36-104 36-104 36-104 
| 3-10 =104 sen 10e 36-104 6-104 6-104 =104 6-104 6-104 6-104 6-104 36-104 36-104 36-104 
=104 6-104 “10464 36-1046 36-1044 36-1048 36-1044 36-1048 36-1044 36-1044 36-1044 36-1044 1044 36-1044 
-1044 =104# 36-1044 36-1044 36-1044 36-1048 “1048 36-1048 36-1044 36-1044 36-1044 36-1048 =104# 36-1044 
6-1048 36-1044 ab td 6-104 36-1044 36°104# 36-104% 36-1044 36-1044 36-104# 36-1044 36-1044 36-1044 36-1044 
36-1048 -1048 1044 36-1044 36-1044 36-1044 “1048 36-1044 36-1044 36-1044 36-1044 36-1044 36-1044 36-1044 
36-1044 “104# 36-1044 36-1048 36-1044 36-1048 “1048 36-1044 si" 6-1044 36-1044 36-1044 a ad 6-1044 
6 6-108 6-1084 =24 7-24 7-24 7-24 37-24 =24 
? 37-2 7-24 37-24 7-24 7-24 7-24 7-24 37-24 37-24 
7-24 7-24 37-24 7-24 37-24 7-24 37-24 37-24 
7-2 7-24 7-24 7-24 7=24 37-24 7-24 37-24 37-24 
7-24 7-24 7-24 7-24 37-24 37-24 37-24 37-24 
7-24 7-24 =24 3. 37-24 7-24 37-248 37-248 
7-244 7-248 7-248 7-248 37-248 7-248 7-248 37-248 
7-248 7-248 7-248 37-248 7-268 7-248 37-248 37-248 
7-248 7-248 7-248 37-248 7-248 37-244 7-248 37-248 
7-248 7-248 37-248 37-2468 7-248 37-248 7-248 37-248 
37-248 837-248 857-248 = 57-248 57-248 = 57-268 = 57-248 = 57-248 
8-89 8-89 -89 38-89 38-89 38-89 -89 -89 
8-89 8-89 38-89 38-89 38-89 38-89 38-89 38-89 
-89 8-89 38-89 38-89 -89 38-89 38-89 -89 
38-89 8-89 38-89 38-89 8-89 38-89 38-89 38-89 


35-69 8-89 8-89 3-89 8-89 38-89 38-89 38-89 
~89¢ 38-894 38-894 38-8948 38-898 38-898 78-898 38-894 
~B9# 38-894 38-894 38-894 38-898 38-898  <3-898 38-894 
8-898 38-894 38-894 894 38-898 38-898 38-894 -898 
g- 9¢ 638-898 8-894 g- oH = 3e-8@ 8-898 38-898 38-898 
~89# 38-894 -894# ~894 35-894 894 38-898 898 
35-898 8-894 36-894 8-898 38-898 38-898 38-898 898 
9-2 9-2 9-23 93 9-23 9-23 39-23 9-23 
39-2 9-23 9-33 9- 9-23 9-23 39-23 9-23 
9-23 9- ; 9- 9-2 9-2 9-23 39-23 9-23 
9-23 9-2 9- 9-23 9-2 9-23 39-23 9-23 
33-2 9-23 9- 9-2 9-2 9-23 39-23 39-23 
9-8 9-23 9- 9-2 a3, 9-23 9-23 33-33 
9- 9-234 39- 34 9- 39-2 9-234 39-238 39-234 
9-238 39-234 39- 39-238 39-238 39-234 39-238 39-234 
9-2 9-234 O54 9-234 39-238 39-234 39-238  39-23¢ 
ge 9-234 39-238 39-234 39-238 39-234 39-238 39-234 
9-238 39-234 9-334 9-234 39- 34 39-534 9-238 39-234 
9-238 39-238 39-238 39-238 39-2 9-234 39-238 39-238 
40-14 49-168 $9-168 49-1462 40-168 40-148 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-142 40-142 40-142 40-14 
40-142 40-142 40-142 40-142 40-1528 40-1408 40-1428 40-1428 
# 40-142@ 40-1428 40-1408 40-.428 40-1428 40-1428 40-1428 40-1428 
# 40-1428 40-1428 40-1428 40-16¢8 40-1428 40-1408 40-1428 40-1428 
#@ 40-1428 40-1428 40-1428 40-1428 40-1428 40-1428 40-1428 40-1428 





SEQ 0266 


0) 


ee 15:44:57 PAGE M-11 
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41-57 


# 40-142# 40-1428 40-1428 
# 40-1428 40-1428 40-1428 


meuCucury BRR 
SS ee ee eo te ek 
SEEK KK MNNMNNNN Ww 


41-57 
-57 


rs at 40-1424 40-1424 40-1 
40-1428 iSite 40-1408 40-1 
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“CROSS REFERENCE TABLE (CREF V04.00 ) 
| 


46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 
46-101 46-101 46-103 946-101 946-101 3946-101 «= 46-101 946-101 39 46-101 9 46-10! 3=— 46-101 9 46-101 §=— 46-101 = 46-101 
46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 46-101 
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